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COMPUTER  FLOW  DIAGRAM  AND  PROGRAM 


The  computer  routine  LAND  was  coded  in  ANSI  Standard  FORTRAN  77  with 
the  main  program  and  the  subroutines  arranged  as  follows: 


NTGRTE 


TABSN1 


TRANS 


GEAR1 


.  J  GEAR2 


GEARS 


GAUSS2 


DYDXS 


CASM01 


Program  Description 


MAIN  -  Main  program  -  sets  NZERO  to  0  and  transfers  control  to  GUIDE. 

GUIDE  -  Subroutine  -  zeroes  input  and  output  numbers  before  data  is  read  for 
first  computer  run,  sets  DYDX(1)  =  1,  calls  INPUT  and  calls  NTGRTE. 

INPUT  -  Subroutine  -  reads  in  all  input  numbers  and  calls  INAID. 

INAID  -  Subroutine  -  writes  input  data  and  establishes  integers  for  control 
of  OUTPUT. 

PAGEHD  -  Subroutine  -  writes  page  heading  for  computer  run  identification 
and  page  number. 

NTGRTE  -  Subroutine  -  performs  the  four  point  Runge-Kutta  integration  of 
differential  equations  and  calls  DYDXS  and  OUTPUT. 

DYDXS  -  Subroutine  -  establishes  the  equations  of  motion  as  equivalent  first 
order  differential  equations.  This  program  calls  GEAR1,  GEAR2,  GEARS,  AERO, 
CASM01 ,  and  the  arresting  hook  force  routines  HOOK,  HOOKS  and  HOOKUS. 

TRANS  -  Subroutine  -  establishes  the  unit  vector  transformations  for  the 
airframe  and  the  landing  gears. 

INITI  -  Subroutine  -  establishes  the  initial  conditions  for  the  airframe  and 
the  landing  gears.  The  program  positions  the  aircraft  based  on  the  first 
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point  of  the  aircraft  to  contact  the  ground  surface. 


GAUSS2  -  Subroutine  -  performs  the  required  matrix  inversion  to  arrange  the 
first  order  differential  equations  in  DYDXS  for  numerical  integration. 

TABSN1  -  Subroutine  -  performs  a  linear  interpolation  on  the  table  entries. 

GEARa  -  Subroutine  -  generates  the  landing  gear  forces  for  the  a  landing 
gear. 

AERO  -  Subroutine  -  computes  the  aerodynamic  forces  and  moments. 

CASM01  -  Subroutine  -  provides  for  the  entry  of  equations  for  the  auxiliary 
or  nose  gear  castoring  moment.  The  LAND  program  will  accommodate  the 
o.astoring  auxiliary  gear,  but  the  coded  version  of  CASM01  assumes  that  the 
auxiliary  gear  is  restrained  from  castoring. 

HOOK  -  Subroutine  -  computes  zero  for  each  of  the  arresting  hook  force 
components . 

HOOKS  -  Subroutine  -  computes  the  arresting  force  components  for  landings 
where  the  arresting  forces  are  symmetrical  with  respect  to  the  longitudinal 
axis  of  the  airframe. 

HOOKUS  -  Subroutine  -  computes  the  arresting  force  components  for  landings 
where  the  arresting  forces  are  unsyrametrical  with  respect  to  the 
longitudinal  axis  of  the  airframe. 
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ITER1  -  Subroutine  -  solves  nonlinear  equation  established  in  HOOKUS. 

ITER2  -  Subroutine  -  solves  nonlinear  equation  established  i  i  HOOKUS. 

The  arresting  force  from  the  arresting  system  is  computed  in  HOOKS  and 
HOOKUS.  In  the  existing  coding  of  LAND  it  is  assumed  that  the  shape  of  this 
function  is  dependent  on  cable  runout  only.  It  may  be  desirable  in  some 
cases  to  have  the  arresting  force  depend  on  aircraft  weight  as  well  as 
runout.  To  accomodate  this  option  the  source  deck  listing  in  Appendix  A 
includes  the  subroutine  TABDB2  which  performs  a  straight  line  interpolation 
on  numbers  from  a  double  table  look-up.  In  the  event  that  this  option  is  to 
be  used  there  are  some  coding  changes  required  in  HOOKS  and  HOOKUS. 
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INPUT  DATA 


Except  as  noted,  input  for  each  computer  run  is  in  the  units  of  inches, 
pounds,  seconds  and  degrees.  Wherever  possible,  the  definitions  from  Volume 
1  are  used  to  describe  the  input  terms.  For  convenience,  the  points  defined 
in  Volume  1  are  input  as  fuselage  station,  buttline  and  waterline. 

The  INPUT  subroutine  is  a  generic  program  for  reading  input  data  to  a 
differential  equation  solving  routine.  There  is  considerable  flexibility  in 
the  method  of  input  of  integers  and  other  input  numbers  including  initial 
conditions  and  table  entries.  The  program  has  the  capability  for  input  of 
multiple  computer  runs.  For  computer  runs  beyond  the  first  in  an  input 
sequence,  only  the  data  that  changes  needs  to  be  input. 

The  following  input  data  table  provides  a  correlation  of  the  computer 
routine  terras  and  the  terms  defined  in  Volume  1. 


TABLE  1 .  Input  Data 


Term 

Def init inn 

Units 

XN(  1  ) 

Fuselage  station  of  the  point  N 

inches 

XN(2) 

Buttline  of  the  point  N 

inches 

XN(3) 

Waterline  of  the  point  N 

inches 

KBULK 

"h 

pounds/inch^ 

DENOIL 

p« 

2  4 

pounds  second  /inch 

XTa(  1  ) 

Fuselage  station  of  the  point  T 

a 

inches 

XTa(2) 

Buttline  of  the  point  T 

a 

inches 

XTa( 3) 

Waterline  of  the  point  T 

a 

inches 

XAa(  1  ) 

Fuselage  station  of  the  point  A^ 

inches 

XAa(2) 

Buttline  of  the  point  A 

a 

inches 

XAa(3) 

Waterline  of  the  point  A 

a 

inches 

WCa3 

w  3 

C 

inches 

ETAa 

a 

Ta 

degrees 

ZETAa 

Ca 

degrees 

MUBa 

f^BU’  /^BL 

KBFa 

bearing  stiffness 

pounds/inch 

CBGa 

Sg 

a 

pound  second/inch 

KBGa 

"bg 

a 

pounds/inch 

VOLHOa 

V„  (0) 
a 

inches^ 

AHa 

a 

inches^ 

AAa 

% 

inches^ 

a 
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TABLE  1.  Input  Data  (Continued) 


Term 

Definition 

Units 

AOa 

inches^ 

a 

CDa 

s 

a 

VOLSOa 

V  (0) 

a 

3 

inches 

AHSa 

a 

inches^ 

ANSEa 

a  a 

inches^ 

ANSCa 

a  a 

inches^ 

CDSa 

a 

RWA 

a  gear  tire  rolling  radius 

inches 

MVlSa 

(M  ^  ) 

pounds  second^/inch 

^a 

MV2Sa 

(M  2  ) 

pounds  second'^/inch 

'^B  ^a 

MV3Sa 

(M  ^  ) 

pounds  second^/inch 

^B  ^a 

MOISa 

(M  ^  ) 

pounds  second^ 

^B  "a 

M02Sa 

(M  2  ) 

2 

pounds  second 

^B  ®a 

M03Sa 

(M  ^  ) 

2 

pounds  second 
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TABLE  1.  Input  Data  (Continued) 


Term 

Definition 

Units 

ZQGa(l) 

Critical  damping  fraction  for 

a  gear  mode 

fl  St 

ZQGa(2) 

Critical  damping  fraction  for 

a  gear  mode 

second 

VWaO 

^0 

inches 

APaAVG 

MURa 

Metering  pin  average  area  for 

f^R 

a 

a  gear 

inches^ 

MWa 

a 

2 

pounds  second  /inch 

CCOEFa 

Tire  cornering  force  coefficient 

pounds/degree 

XH(1) 

Fuselage  station  of  the  point 

H 

inches 

XH(2) 

Buttline  of  the  point  H 

inches 

XH(3) 

Waterline  of  the  point  H 

inches 

LHV 

^HV 

inches 

LLP 

\p 

inches 

PHIHKO 

4>n^ 

degrees 

LHP 

h? 

inches 

FOBAR 

inches 

DEAR 

'^BAR 

inches 

BC 

be 

inches 

VS 

“s 

inches 

VHPTC 

MUC 

f^c 

inches 
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TABLE  1 .  Input  Data 

( Continued) 

Term 

Definition 

Units 

RUNMAX 

inches 

XTH(1 ) 

Fuselage  station  of  the  point 

TL 

inches 

XTH(2) 

Buttline  of 

the  point  TL 

inches 

XTH(3) 

Waterline  of 

the  point  TL 

inches 

SIGT 

-  sin^^F^^/ 

|fil> 

degrees 

Thrust 

1^1 

pounds 

B  B 

MV1V1 

(H  ,  ,) 

2 

pounds  second  /inch 

MObOc 

b  c> 

2 

pounds  second  inch 

XP(1) 

Fuselage  station  of  the  point 

P 

inches 

XP(2) 

Buttline  of 

the  point  P 

inches 

XP(3) 

Waterline  of 

the  point  P 

inches 

VWIND 

'w  ('w  = 

-  L  ''w> 

inches/second 

RHO 

p 

2  4 

pound  second  /inch 

S 

s 

inches^ 

2 

GEAR 

”  =  \ 

inches 

B 

inches 

DELTA 

5e 

degrees 

CXAL 

1 /degree 

CZAL 

1 /degree 

CYBT 

1 /degree 
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TABLE  1.  Input  Data  (Continued) 


Term 

Defi^ioion 

Units 

CXDL 

C 

"Se 

1/f^  agree 

CZDL 

C 

^Se 

1  /degree 

CMAL 

C 

“a 

1 /degree 

CLBT 

C 

1 /degree 

CNBT 

C 

1 /degree 

CMDL 

C 

'™8e 

1 /degree 

CXO 

^0 

CZO 

c 

1 

'^0 

CMO 

c 

“o 

ALFREF 

Q  reference 

degrees 

DELREF 

( 

n  reference 
^e 

degrees 

VA 

?’(0)  - 

knots 

VE 

( 

d'(0) 

knots 

VV 

v'(0) 

feet/second 

PITCH 

1 

0(0) 

degrees 

ROLL 

( 

pio) 

degrees 

CIQA(b) 

CIQO(b) 

;a 

1 /degree 
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TABLE  1.  Input  Data  (Continued) 


Term 

MQBbb 

ZQBbb 

KQBbb 

PBHab 


Definition 


Units 


<"  b  b> 

Critical  damping  fraction 


for  bth  airframe  mode 


pounds  second  /inch 


pounds/inch 


Input  Data  Description 


The 

fields. 

(1) 

(2) 

(3) 

(M) 

(5) 

(6) 

computer 

(7) 

read  for 


first  input  record  contains  14  numbers  (NTEGERs)  arranged  in  15 
These  14  entries  in  order  are  defined  as  follows: 

IDENT  -  Computer  run  number. 

NPF1  -  The  number  of  number  sets  to  be  read  with  6E10.3  fields. 
NPF2  -  The  number  of  numbers  to  be  read  with  one  number  per  entry. 

0. 

0. 

NFIRST  -  The  number  of  initial  conditions  to  be  read  into  the 
run. 

NT1  -  The  number  of  tables  for  single  entry  interpolation  to  be 
the  computer  run. 


(8)  0. 

(9)  NTW1  -  The  number  of  input  single  entry  tables  that  are  to  be 
printed  in  the  sequence  defined  in  TABLE  7. 


(10)  0. 


(11)  NHOOK  =  0  for  landing  without  arresting  forces 

=  1  for  landing  with  unsymmetrical  arresting  forces 
=  2  for  landing  with  symmetrical  arresting  forces. 

(12)  NTSKIP  -  The  number  of  integration  time  steps  skipped  before  output 
data  is  printed. 

(13)  NEQ  -  The  number  of  equivalent  first  order  differential  equations 
which  is  equal  to  34  +  2  (NGE1  +  NGE2  +  NGE3  +  NBE). 

(14)  NMORE  =  25 
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The  second  record  contains  the  following  data: 

(15)  NBE  -  The  number  of  generalized  coordinates  used  to  define  the 
airframe  deformation  -  not  to  exceed  eight. 

(16)  NGE1  -  The  number  of  generalized  coordinates  used  to  define  the 
number  1  landing  gear  deformation  -  not  to  exceed  2, 

(17)  NGE2  -  The  number  of  generalized  coordinates  used  to  define  the 
number  2  landing  gear  deformation  -  not  to  exceed  2. 

(18)  NGE3  -  The  number  of  generalized  coordinates  used  to  define  the 
number  3  landing  gear  deformation  -  not  to  exceed  2. 

(19)  NSTYP1  =  1  for  a  type  1  shock  strut  (see  Volume  1 )  on  the  number  1 
landing  gear. 

=  2  for  a  type  2  shock  strut  on  the  number  1  landing  gear. 

(20)  NSTYP2  =  1  for  a  type  1  shock  strut  on  the  number  2  landing  gear 

=  2  for  a  type  2  shock  strut  on  the  number  2  landing  gear. 

(21)  NSTYP3  =  1  for  a  type  1  shock  strut  on  the  number  3  landing  gear 

=  2  for  a  type  2  shock  strut  on  the  number  3  landing  gear. 

(22)  NCASR1  =  0  if  the  number  1  landing  gear  is  to  be  restrained  from 
castoring 

=  1  if  the  number  1  landing  gear  is  allowed  to  castor. 

(23)  INIT  =  0  if  Subroutine  INITI  is  to  be  called  to  position  the 
aircraft  vertically  at  the  time  t  =  0. 

=  1  if  Subroutine  INITI  is  not  to  be  called. 

(24)  0. 

(25)  NVEVV  =  1  if  alternate  method  for  reading  initial  conditions  is 

used 

=  0  if  alternate  method  for  reading  initial  conditions  is  not 

used . 
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The  third  and  fourth  records  each  contain  a  72H  field  for  descriptive 
information  on  the  computer  run. 

The  next  records  are  used  to  read  in  number  (P)  sets  in  Format  1  and/or 
Format  2  as  required. 

For  a  Format  1  entry,  the  first  record  of  the  entry  contains  NF11, 

NP22,  1  in  315  fields.  The  next  record  contain  the  numbers  P(NP11)  to 
P(NP22)  sequentially  in  6E10.3  fields.  There  are  NPF1  Format  1  entries  per 
computer  run. 

For  a  Format  2  entry,  there  is  one  record  per  entry  with  I,  P(I)  in  15 
and  El 5. 7  fields.  There  are  NPF2  Format  2  entries  per  computer  run. 

If  the  integer  NVEVV  is  set  equal  to  1 ,  then  by  either  Format  1  or 
Format  2  the  following  numbers  are  to  be  input  for  the  initial  conditions 
for  the  computer  run: 

P(187)  =  VA  -  the  airspeed  of  the  aircraft,  in  knots. 

P(188)  =  VE  -  the  component  of  the  aircraft  velocity  vector  relative  to 
the  ground  that  is  parallel  to  the  ground  surface  in  knots. 

P(189)  =  VV  -  the  component  of  the  aircraft  velocity  vector  relative  to 
the  ground  that  is  normal  to  the  ground  surface,  in  feet  per  second. 

P(190)  =  PITCH  -  the  aircraft  pitch  angle  in  degrees. 

P(191)  =  ROLL  -  the  aircraft  roll  angle  in  degrees. 

The  next  records  are  used  to  read  in  the  initial  conditions  that  are 
not  read  in  through  the  NVEVV  option.  Each  record  contains  I,  FIRSTY(I)  in 
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15,  E15.7  fields.  There  are  NFIRST  entries  read  in  by  this  format. 

The  next  records  contain  the  single  entry  tables.  For  each  table  the 
first  record  contains  I,  NTB1(I)  in  15  and  115  fields  where  I  is  the  number 
of  the  table  entered  and  NTB1(I)  is  the  number  of  points  in  the  Ith  table. 
The  second  ref'ord  contains  the  abscissas  of  the  points  in  6E10.3  fields. 

The  third  record  contains  the  ordinates  of  the  points  in  the  Ith  table  in 
6E10.3  fields.  There  are  NT1  single  entry  tables  per  computer  run. 

This  completes  the  input  for  each  computer  run. 
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TABLE  2.  Output  Data 


Term 

Definition 

Units 

T 

Time 

3econd3 

VBD1 

Vb’’ 

2 

feet/3econd 

VB1 

feet/second 

DD 

d' 

feet/second 

D 

d 

feet 

VBD2 

2 

feet/eecond 

V 

feet/3econd 

SD 

3* 

feet/second 

S 

3 

feet 

VBD3 

'b^' 

2 

feet/eecond 

VB3 

Vb^ 

feet/second 

VD 

V' 

feet/second 

V 

V 

feet 

OMEGBD1 

radians/eecond 

OMEGB 1 

n,' 

radians/second 

PHID 

4>’ 

radiana/second 

PHI 

degrees 

OMEGBD2 

radiana/aecond 

OMEGB 2 

i^B^ 

radiana/aecond 

16 


TABLE  2.  Output  Data  (Continued) 


Term 

Definition 

Units 

THETD 

9' 

radians/ second 

THET 

9 

degrees 

0MEGBD3 

O  3, 

2 

radians/second 

OMEGB3 

fie' 

radians/second 

PSID 

ip. 

radians/ second 

PSI 

degrees 

PHa 

Ph 

a 

2 

pounds/inch 

PAa 

Pa 

a 

2 

pounds/inch 

PHSa 

Pr 

a 

2 

pounds/ inch 

OMWaD 

Hw 

a 

2 

radians/second 

OMWa 

a 

radians/second 

QGaDDI 

^G 

a 

2 

inches/second 

QGaDI 

q 

a 

inches/second 

QGal 

1 

% 

a 

inches 

QGaDD2 

% 

a 

2 

inches/second 

QGaD2 

^G  '' 
a 

inches/second 

QGcaZ 

‘’g  " 

a 

inches 

VWa 

a 

inches 

xl 


TABLE  2,  Output  Data  (Continued) 


Term 

Definition 

Unite 

FSa 

"s 

a 

pounds 

FGWal 

a 

pounds 

FGWa2 

a 

pounds 

FGWa3 

^G  ^ 
a 

pounds 

FAXal 

"°A 

pounds 

FAXa2 

pounds 

FAXa3 

pounds 

^3 

SaDD 

3  " 
a 

inches/second 

SaD 

3  ’ 

a 

inches/second 

Sa 

3 

a 

inches 

FFBUa 

Upper 

bearing 

friction 

force 

for 

a  gear 

pounds 

FFBLa 

Lower 

bearing 

friction 

force 

for 

a  gear 

pounds 

ALPHA 

a 

degrees 

BETA 

/S 

degrees 

VAIR 

1?'  - 

^wl 

feet/second 

FP1 

pounds 

FP2 

pounds 
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TABLE  2.  Output  Data  (Continued) 


Term 

Definition 

Units 

FP3 

pounds 

MP1 

inch  pounds 

MP2 

»P^ 

inch  pounds 

MP3 

»P^ 

inch  pounds 

OMG 1 DD 

^1 

1 

radians/second 

OMG1D 

9^; 

1 

radians/second 

THTG1 

9q 

a 

degrees 

RUNOUT 

RO 

feet 

SH 

■ 

feet 

VH 

'3^ 

feet 

PHIHK 

degrees 

ALPHC 

degrees 

FH1 

"h' 

pounds 

FH2 

pounds 

FH3 

pounds 

QBDDb 

<^b'" 

inches/second^ 

QBDb 

inches/second 

QBb 

^3^ 

inches 

19 


EQUIVALENCE  TABLES 


The  technique  that  has  been  used  in  the  coding  of  this  routine  is  to 
pi  ace  all  input  and  output  numbers  in  blank  common.  All  input  and  output 
integers  are  contained  in  the  set  defined  as  NTEGER  which  is  dimensioned 
300.  All  input  floating  point  numbers  except  initial  conditions  and  output 
numbers  are  contained  in  in  the  set  P  which  is  dimensioned  2000.  To  make 
the  program  more  easily  interpreted,  EQUIVALENCE  statements  are  used  to  give 
the  NTEGER  and  P  numbers  more  recognizable  names.  The  LAND  program  NTEGER 
and  P  equivalences  are  given  below. 
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TABLE  3.  NTEGER  Equivalences 


NTEGER 

Dimension 

Term 

NTEGER 

Dimension 

Term 

1 

(1) 

I  DENT 

24 

2 

(1) 

NPFl 

25 

(1) 

NVEVV 

3 

(1) 

NPF2 

4 

(1) 

NPF3 

5 

(1) 

NPF4 

6 

(1) 

NFIRST 

7 

(1) 

NTl 

8 

9 

(1) 

NTWl 

49 

(1) 

NPAGE 

10 

50 

(1) 

NLINE 

1  1 

(1) 

NHOOK 

51 

(1) 

NSKIP 

12 

(1) 

NTSKIP 

52 

13 

(1) 

NEQ 

53 

(1) 

NPRT 

14 

(1) 

NMORE 

54 

15 

(1) 

NBE 

55 

16 

(1) 

NGEl 

56 

(110) 

NTB1( 1) 

1 7 

(1) 

NGE2 

165 

NTBl(llO) 

18 

(1) 

NGE3 

166 

(1) 

NTB21 

19 

(1) 

NSTYPl 

167 

(1) 

NTB22 

20 

(1) 

NSTYP2 

?1 

(1) 

NSTYP3 

22 

(') 

NCASRl 

2  3 

(1) 

INIT 
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TABLE  4.  P  Equivalences 


Dimension 

Term 

P 

Dimension 

Term 

1 

(1) 

Time  step 

27 

(1) 

AOl 

2 

(1) 

Run  time 

28 

(1) 

GDI 

3 

(3) 

XN(1) 

29 

(1) 

VOLSOl 

5 

XN(3) 

30 

(1) 

AHSl 

6 

(1) 

KBULK 

31 

(1) 

ANSEl 

7 

(1) 

DENOIL 

32 

(1) 

ANSCl 

8 

33 

(1) 

CDSl 

9 

34 

(1) 

RWl 

10 

35 

(1) 

MVISI 

11 

(3) 

XTl(l) 

36 

(1) 

MV3S1 

13 

XT1(3) 

37 

(i) 

M02S1 

14 

(3) 

XAl(l) 

38 

(1) 

MOWl 

16 

XA1(3) 

39 

17 

(1) 

WC13 

40 

(2) 

ZQGl(l) 

18 

(1) 

ETAl 

41 

ZQG1(2) 

19 

(1) 

ZETAl 

42 

(1) 

VWIO 

20 

(1) 

MUBl 

43 

(1) 

APIAVG 

21 

(1) 

KBFl 

44 

(1) 

MURl 

22 

U) 

CBGl 

45 

(1) 

MWl 

23 

(1) 

KBGl 

46 

(1) 

CCOEFl 

24 

(1) 

VOLHOl 

47 

25 

(1) 

AHl 

48 

26 

(1) 

AAl 

49 
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TABLE  4.  P  Equivalences  (Continued) 


Dimension 

Term 

P 

Dimension 

Term 

50 

75 

(1) 

MV1S2 

51 

(3) 

XT2(1) 

76 

(1) 

MV2S2 

53 

XT2(3) 

77 

(1) 

MV3S2 

54 

(3) 

XA2(1) 

78 

(1) 

M01S2 

56 

XA2(3) 

79 

(1) 

M02S2 

57 

(1) 

WC23 

80 

(1) 

M03S2 

58 

(1) 

ETA2 

81 

(1) 

M0W2 

59 

(1) 

ZETA2 

82 

60 

(1) 

MUB2 

83 

(2) 

ZQG2(1) 

61 

(1) 

KBF2 

84 

ZQG2(2) 

62 

(1) 

CBG2 

85 

(1) 

VW20 

63 

(1) 

KBG2 

86 

(1) 

AP2AVG 

64 

(1) 

V0LH02 

87 

(1) 

MUR2 

65 

(1) 

AH  2 

88 

(1) 

MW2 

66 

(1) 

AA2 

89 

(1) 

CC0EF2 

67 

(1) 

AO  2 

90 

68 

(1) 

CD2 

91 

(3) 

XT3(1) 

69 

(1) 

VOLS02 

93 

XT3(3) 

70 

(1) 

AHS2 

94 

(3) 

XA3(1) 

71 

(1) 

ANSE2 

96 

XA3(3) 

72 

(1) 

ANCE2 

97 

(1) 

WC33 

73 

(1) 

CDS2 

98 

(1) 

ETA  3 

74 

(1) 

RW2 

99 

(1) 

ZETA3 
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TABLE  4.  P  Equivalences  (Continued) 


p 

Dimension 

Term 

P 

Dimension 

100 

(1) 

HUB  3 

123 

(2) 

101 

(1) 

KBF3 

124 

102 

(1) 

CBG3 

125 

(1) 

103 

(1) 

KBG3 

126 

(1) 

104 

(1) 

VOLH03 

127 

(1) 

105 

(1) 

AH  3 

128 

(1) 

106 

(1) 

AA3 

129 

(1) 

107 

(1) 

AO  3 

130 

108 

(1) 

CD3 

131 

(3) 

109 

(1) 

VOLS03 

133 

no 

(1) 

AHS3 

134 

(1) 

111 

(1) 

ANSE3 

135 

(1) 

112 

(1) 

ANSC3 

136 

(1) 

113 

(1) 

CDS3 

137 

(i) 

114 

(1) 

RW3 

138 

(1) 

115 

(1) 

MV1S3 

139 

(1) 

116 

(1) 

MV2S3 

140 

(1) 

117 

(1) 

MV3S3 

141 

(1) 

118 

(1) 

M01S3 

142 

(1) 

119 

(1) 

M02S3 

143 

(1) 

120 

(1) 

M03S3 

144 

(1) 

121 

122 

(1) 

MOW  3 

145 

Term 

ZQG3(1) 

ZQG3(2) 

VW30 

AP3AVG 

MUR3 

MW3 

CC0EF3 

XH(1) 

XH(3) 

LHV 

LLP 

PHIHKO 

LHP 

KBAR 

DBAR 

BC 

VS 

VHPTC 

MUG 

RUNMAX 
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TABLE  4.  P  Equivalences  (Continued) 


p 

Dimension 

146 

(3) 

148 

149 

(1) 

150 

(1) 

151 

(1) 

i52 

(1) 

153 

(1) 

154 

(1) 

155 

(1) 

156 

(1) 

157 

(1) 

158 

(1) 

159 

(1) 

160 

(1) 

161 

(3) 

163 

164 

(1) 

165 

(1) 

166 

(1) 

167 

(1) 

168 

(1) 

169 

(1) 

170 

(1) 

Term  P 

XTH(l)  171 

XTH(3)  172 

SIGT  173 

THRUST  174 

MVIVI  175 

MOlOl  176 

M0102  177 

M0103  178 

M0201  179 

M0202  180 

M0203  181 

M0301  182 

M0302  183 

M0303  184 

XP(1)  185 

XP(3)  186 

VWIND  187 

RHO  188 

S  189 

CBAR  190 

B  191 

DELTA 
CXAL 


Dimension 

Term 

(1) 

CZAL 

(1) 

CYBT 

(1) 

CXDL 

(1) 

CZDL 

(1) 

CMAL 

(1) 

CLBT 

(1) 

CNBT 

(1) 

CMDL 

(1) 

CXO 

(1) 

CZO 

(1) 

CMO 

(1) 

ALFREF 

(1) 

DELREF 

(1) 

VA 

(1) 

VE 

(1) 

W 

(1) 

PITCH 

(1) 

ROLL 
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TABLE  4.  P  Equivalences  (Continued) 


p 

Dimension 

Term 

P 

Dimension 

209 

(8) 

CIQA(l) 

418 

(1) 

216 

C1QA(8) 

419 

420 

225 

(8) 

CIQO(l) 

421 

(1) 

232 

CIQ0(8) 

422 

(1) 

423 

(1) 

401 

(1) 

MQBll 

424 

(1) 

402 

(1) 

MQB22 

425 

(1) 

403 

(1) 

MQB33 

426 

(1) 

404 

(1) 

MQB44 

427 

(1) 

405 

(1) 

MQB55 

428 

(1) 

406 

(1) 

MQB66 

429 

407 

(1) 

MQB77 

430 

408 

(1) 

MQB88 

431 

(1) 

409 

432 

(1) 

410 

433 

(1) 

411 

(1) 

ZQBll 

434 

(1) 

412 

(1) 

ZQB22 

435 

(1) 

413 

(1) 

zqB33 

436 

(1) 

414 

(1) 

ZQB44 

437 

(1) 

415 

(1) 

ZQB55 

438 

(1) 

416 

(1) 

ZQB66 

439 

(1) 

417 

(1) 

ZQB77 

440 

(1) 

Term 

ZQB88 

KQBl  1 
KQB22 
KQB33 
KQB44 
KQB55 
KQB66 
KQB77 
KQB88 

PBHll 

PBH21 

PBH31 

PBH12 

PBH22 

PBH32 

PBH13 

PBH23 

PBH33 

PBH14 
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TABLE  4.  P  Equivalences  (Continued) 


p 

Dimension 

Term 

441 

(1) 

PBH24 

442 

(1) 

PBH34 

443 

(1) 

PBH15 

444 

(1) 

PBH25 

445 

(1) 

PBH35 

446 

(1) 

PBH16 

44  7 

(1) 

PBH26 

448 

(1) 

PBH36 

449 

(1) 

PBH17 

450 

(1) 

PBH27 

451 

(1) 

PBH37 

452 

(1) 

PBH18 

453 

(1) 

PBH28 

454 

(1) 

PBH38 

27 


TABLE  5.  Y  Equivalences 


Dimension 

Term 

Y 

Dimension 

Term 

1 

(1) 

T 

26 

(1) 

BTAS1 

2 

(3) 

VB(1) 

27 

(1) 

BTAS2 

H 

VB(3) 

28 

(1) 

BTAS3 

5 

(1) 

D 

29 

(1) 

DLSU1 

6 

(1) 

S 

30 

(1) 

DLSU2 

7 

(1) 

V 

31 

(1) 

DLSU3 

8 

(3) 

0MEGB( 1 ) 

32 

(1) 

DLSL1 

10 

0MEGB(3) 

33 

(1) 

DLSL2 

11 

(1) 

PHIR 

34 

(1) 

DLSL3 

12 

(1) 

THETR 

35 

(2) 

QGID(I) 

13 

(1) 

PSIR 

36 

QG1D(2) 

14 

(1) 

SID 

37 

(2) 

QG2D(1 ) 

15 

(1) 

S2D 

38 

QG2D(2) 

16 

(1) 

S3D 

39 

(2) 

QG3D(1) 

17 

(1) 

SI 

40 

QG3D(2) 

18 

(1) 

S2 

41 

(2) 

QGKD 

19 

(1) 

S3 

42 

QG1(2) 

20 

(1) 

OMW1 

43 

(2) 

QG2(1) 

21 

(1) 

OMW2 

44 

QG2(2) 

22 

(1) 

OMW3 

45 

(2) 

QG3(1) 

23 

(1) 

BETA1 

46 

QG3(2) 

24 

(1) 

BETA2 

25 

(1) 

BETA3 

28 


TABLE  5.  Y  Equivalences  (Continued) 


Dimension 

Term 

^7 

(8) 

QBD(1) 

54 

QBD(8) 

55 

(8) 

QB(1) 

62 

QB(8) 

63 

(1) 

0MG1D 

64 

(1) 

THTG'iR 

29 


TABLE  6.  DYDX  Equivalences 


DYDX 

Dimension 

Term 

DYDX 

Dimension 

Term 

1 

(1) 

1.0 

26 

(1) 

BTAS1D 

2 

(3) 

VBD(1) 

27 

(1) 

BTAS2D 

4 

VBD(3) 

28 

(1) 

BTAS3D 

5 

(1) 

DD 

29 

(1) 

DLSU1D 

6 

(1) 

SD 

30 

(1) 

DLSU2D 

7 

(1) 

VD 

31 

(1) 

DLSU3D 

8 

(3) 

OMEGBDd  ) 

32 

(1) 

DLSL1D 

10 

OMEGBDO) 

33 

(1) 

DLSL2D 

1 1 

(1) 

PHIRD 

34 

(1) 

DLSL3D 

12 

(1) 

THETRD 

35 

(2) 

QGIDDd  ) 

13 

(1) 

PSIRD 

36 

QG1DD(2) 

14 

(1) 

S1DD 

37 

(2) 

QG2DDd) 

15 

(1) 

S2DD 

38 

QG2DD(2) 

16 

(1) 

S3DD 

39 

(2) 

QG3DDd) 

17 

(1) 

SS1D 

40 

QG3DD(2) 

18 

(1) 

SS2D 

41 

(2) 

QQGIDd  ) 

19 

(1) 

SS3D 

42 

QQG1D(2) 

20 

(1) 

0MW1D 

43 

(2) 

QQG2Dd) 

21 

(1) 

0MW2D 

44 

QQG2D(2) 

22 

(1) 

0MW3D 

45 

(2) 

QQG3Dd) 

23 

(1) 

BETA  ID 

46 

QQG3IX2) 

24 

(1) 

BETA2D 

25 

(1) 

BETA3D 

30 


TABLE  6.  DYDX  Equivalences  (Continued) 


DYDX 

Dimension 

Term 

47 

(8) 

QBDDd  ) 

54 

QBDD(8) 

55 

(8) 

QQBD(I) 

62 

QQBD(8) 

63 

(1) 

0MG1DD 

64 

(1) 

00MG1D 

51 


TABLE  7-  Interpolation  Functions 


Table 

Dimension  Output 

/ 

Input 

Single 

Entry 

Table 

1 

(110) 

XIAKI)  =  §  ^ 

> 

/ 

SI  = 

11 

11 

ft 

2 

11 

XIA1(3)  =  S,  ^ 

1 

/ 

SI  = 

11 

11 

11 

3 

11 

XIAID(I)  =  ^ 

/ 

SI  = 

11 

ft 

It 

4 

11 

XIA1D(3)  =  S, 

ft. 

/ 

SI  = 

11 

II 

11 

5 

11 

3  ^ 

FG1(3)  =  F  ^[I+v„  ] 

'  'o 

/ 

VTR1 

It 

11 

If 

6 

If 

API  =  A„ 

/ 

SI  = 

11 

11 

It 

7 

11 

PA1  =  p 

/ 

SI  = 

It 

11 

It 

8 

ft 

MUG1  =  jU.Q 

/ 

SPR1 

1  1 

11 

11 

11 

9 

It 

A(7,7)  =  MS1S1  =  (M  ) 

/ 

SI  = 

II 

11 

11 

10 

It 

BUKD  =  BFU^^ 

/ 

SI  = 

ff 

If 

ft 

11 

11 

BU1(2)  =  BFU^^ 

/ 

SI  = 

t1 

ft 

11 

12 

11 

BU1(3)  =  BFU^^ 

/ 

SI  = 

11 

11 

11 

13 

II 

BLKD  =  BFL^^ 

/ 

SI  = 

II 

11 

It 

14 

ft 

BL1(2)  =  BFL^^ 

/ 

SI  = 

If 

II 

ft 

15 

11 

BL1(3)  =  BFL^^ 
'’g  ‘^G 

/ 

SI  = 

11 

11 

II 

16 

11 

MQG1(1,1)  =  (M 

/ 

SI  = 

11 

11 

11 

17 

11 

MQG1 (2,2) 

/ 

SI 

11 

11 

11 

18 

11 

KQG1(1,1)  =  K  [1,0] 

\  “ 

/ 

SI  = 

11 

It 

11 

19 

11 

KQG1(2,2) 

/ 

SI 

11 

If 

If 

20 

11 

PGA1(1,1)  =(p  ^[1,0] 

/ 

SI  = 

11 

11 

11 

21 

11 

PGA1(2, 1) 

/ 

SI 

11 

11 

11 

22 

11 

PGA1(3,1) 

/ 

SI 

TABLE  7.  Interpolation  Functions  (Continued) 


Table 

Dimension 

Output 

/ 

Input 

Single 

Entry 

Table 

23 

(110) 

PGAKI  ,2) 

/ 

SI 

(t 

tt 

tt 

2M 

It 

PGA1(2,2) 

/ 

SI 

11 

11 

11 

25 

tt 

PGA1(3,2) 

^g/^g 
^  '  ') 

/ 

SI 

If 

tt 

tt 

26 

tt 

M0G1  =  (1 

/ 

SI  =  s 

It 

tt 

It 

27 

tl 

PBA1(1,1) 

=  ^BG,  ' 

/ 

SI  =  s 

It 

It 

It 

28 

It 

PBA1(2,1) 

/ 

SI 

11 

It 

II 

29 

tt 

PBA1(3,1) 

/ 

SI 

It 

It 

It 

30 

It 

PBA1 (1 ,2) 

/ 

SI 

It 

tt 

tl 

31 

If 

PBA1(2,2) 

/ 

SI 

tt 

11 

ft 

32 

It 

PBA1(3,2) 

/ 

SI 

tl 

tl 

If 

33 

tt 

PBA1(1,3) 

/ 

SI 

It 

ft 

tl 

34 

tt 

PBA1(2,3) 

/ 

SI 

tt 

tl 

tl 

35 

tt 

PBA1(3,3) 

/ 

SI 

ft 

tt 

ft 

36 

If 

PBA1 (1 ,4) 

/ 

SI 

tt 

tl 

tt 

37 

It 

.  .r*  ^  ^  ^ 

/ 

SI 

tt 

tl 

tt 

38 

It 

PBA1(3,4) 

/ 

SI 

It 

If 

ft 

39 

It 

PBAKI  ,5) 

/ 

SI 

It 

If 

tt 

40 

tt 

PBA1(2,5) 

/ 

SI 

tt 

If 

tt 

41 

tt 

PBA1(3,5) 

/ 

SI 

tt 

It 

It 

42 

It 

PBAKI, 6) 

/ 

SI 

tt 

tt 

If 

43 

If 

PBA1(2,6) 

/ 

SI 

tt 

tt 

It 

44 

tt 

PBA1(3,6) 

*’6 

/ 

SI  =  s 

33 


TABLE  7.  Interpolation  Functions  (Continued) 


Table 

Dimensio'' 

Output 

/ 

Input 

Single 

Entry 

Table 

45 

(110) 

PBA1(1,7) 

/ 

SI 

tl 

tt 

tt 

46 

tt 

PBA1(2,7) 

/ 

SI 

tt 

tt 

tt 

47 

tt 

PBA1(3,7) 

/ 

SI 

tt 

tt 

tt 

48 

ft 

PEAK  1  ,8) 

/ 

SI 

It 

It 

tt 

49 

tt 

PBA1 (2,8) 

/ 

SI 

tt 

tt 

tt 

50 

tt 

PBA1(3,8) 

/ 

SI 

tt 

tt 

tt 

51 

tt 

XIA2(1)  =  '' 

/ 

S2  =  3„ 

^2 

(L 

tt 

11 

11 

52 

tt 

XIA2(2)  =  C  ^ 
*2 

/ 

S2  =  3^ 

tt 

tl 

It 

53 

tt 

XIA2(3)  =  S.  ^ 
*2 

> 

/ 

S2  =  3^ 

tt 

tt 

tt 

54 

tt 

XIA2D(1)  =  S. 

^2 

> 

/ 

S2  =  3^ 

tt 

tt 

tt 

55 

tt 

XIA2D(2)  =  S. 

*2 

/ 

S2  =  3^ 

tt 

tt 

tt 

56 

tt 

XIA2D(3)  =  Sfl 
-  3  ^ 

FG2(3)  =  F„  ^[I+v„  ] 

^  ^0 

/ 

S2  =  3^ 

tt 

If 

It 

57 

tt 

/ 

VTR2  = 

tt 

ft 

tt 

58 

tt 

AP2  =  A 

2 

/ 

S2  =  3^ 

tt 

ft 

tt 

59 

ft 

PA2  =  p^^ 

/ 

S2  =  3^ 

tt 

tt 

tt 

60 

tt 

MUG2  = 

/ 

SPR2  =  R 

3232 

ft 

ft 

tt 

61 

ft 

A(8,8)  =  MS2S2  =  (M  ) 

/ 

S2  =  3^ 

tt 

tt 

It 

62 

ft 

BU2(1)  =  BFU^^ 

/ 

S2  =  3^ 

tt 

tt 

tt 

63 

ft 

BU2(2)  =  BFU^^ 

/ 

S2  =  3^ 

tt 

It 

tt 

64 

ft 

BU2(3)  =  BFU^^ 

/ 

S2  =  3^ 

ft 

tl 

ft 

65 

ft 

BL2(1)  =  BFL^^ 

/ 

S2  =  3^ 

TABLE  7.  Interpolation  Functions  (Continued) 


Table  Dimension  Output  /  Input 


Single 

Entry 

Table 

66 

(110) 

BL2(2)  =  BFL^^ 

/ 

S2 

=  "2 

II 

II 

If 

67 

It 

BL2(3)  =  BFL^^ 

/ 

SI 

=  ^2 

II 

n 

II 

68 

fl 

MQG2(1,1)  =  (M  ^)[I,0] 

/ 

S2 

=  "2 

II 

It 

II 

69 

11 

MQG2(2,2) 

/ 

S2 

It 

II 

11 

70 

II 

KQG2(1,1)  =  K_  [1,0] 

/ 

S2 

=  "2 

II 

II 

II 

71 

II 

KQG2(2,2) 

/ 

S2 

It 

It 

n 

72 

11 

PGA2(1,1)  ^[1,0] 

/ 

S2 

=  "2 

II 

f! 

If 

73 

t1 

PGA2(2, 1 ) 

/ 

S2 

It 

II 

II 

74 

ff 

PGA2(3,1) 

/ 

S2 

11 

II 

II 

75 

tf 

PGA2(1 ,2) 

/ 

S2 

II 

11 

It 

76 

If 

PGA2(2,2) 

/ 

S2 

II 

II 

fl 

77 

tf 

PGA2(3,2) 

/ 

S2 

It 

II 

If 

78 

fl 

/ 

S2 

=  "2 

II 

II 

II 

79 

If 

PBA2(2, 1 ) 

/ 

S2 

If 

II 

ff 

80 

fl 

PBA2(3,1) 

/ 

S2 

If 

If 

If 

81 

II 

PBA2( 1,2) 

/ 

S2 

If 

11 

fl 

82 

ff 

PBA2(2,2) 

/ 

S2 

If 

If 

It 

83 

fl 

PBA2(3,2) 

/ 

S2 

11 

II 

It 

84 

If 

PBA2(1 ,3) 

/ 

S2 

If 

II 

If 

85 

ft 

PBA2(2,3) 

/ 

S2 

It 

II 

ft 

86 

ff 

PBA2(3,3) 

/ 

S2 

If 

fl 

It 

87 

ff 

PBA2( 1 ,4) 

/ 

S2 

II 

II 

If 

88 

ff 

PBA2(2,4) 

/ 

S2 
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TABLE  7.  Interpolation  Functions  (Continued) 


Tsble  Dimension 

Single  Entry  Table  89  (110) 

"  I'  n  go  II 

91  " 


If 


"  92 

II  93 
II  94 
II  95 

"  96 

"  97 

"  98 

99 


II 


II 


100 

101 

102 


Output  /  Input 
PBA2(3,4)  /  S2 
PBA2(1,5)  /  S2 
PBA2(2,5)  /  S2 
PBA2(3,5)  /  S2 
PBA2(1,6)  /  S2 
PBA2(2,6)  /  S2 
PBA2(3,6)  /  S2 
PBA2(1,7)  /  S2 
PBA2(2,7)  /  S2 
PBA2(3,7)  /  S2 
PBA2(1,8)  /  S2 
PBA2(2,8)  /  S2 


PBA2(3,8)  /  S2 


MSIQGd)  = 


(M  t)[I,0]  /  SI 


"  103 

104 


ft 


MS1QG(2)  /  SI 


MS2QG(1)  =  (M 


^)[I,0]  /  S2  =  s^ 


"  105 

"  106 


II 


107 

108 

109 

1 10 


MS2QG(2)  /  S2 


Vb  Vg 

"  FH1NON  =  F  /(M  ^  ^)(d'(0))^  /  RUNNON 

^1 


RO/RO„ 

M 
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SUMMARY  OF  EQUATIONS 


The  equations  coded  in  the  program  LAND  were  extracted  from  Volume  1. 
The  Volume  1  equations  were  reduced  in  scope  for  the  coding  of  the  program 
LAND  to  include  only  the  terms  needed  for  the  simulation  of  the  arrested 
landing  of  a  fighter  or  attack  type  aircraft.  However,  this  program  can  be 
used  to  simulate  the  landing  dynamics  and  obtain  the  landing  gear  loads  for 
other  classes  of  aircraft.  The  program  LAND  includes  the  following  degrees 
of  freedom: 

Three  translational  degrees  of  freedom  for  the  rigid  airframe. 

Three  rotational  degrees  of  freedom  for  the  rigid  airframe. 

Eight  flexible  degrees  of  freedom  for  the  airframe. 

Rigid  body  motion  of  each  of  the  landing  gears  relative  to  the  airframe. 

Two  flexible  body  degrees  of  freedom  for  each  of  the  three  landing  gears. 
Rotational  motion  of  the  gear  wheel  about  the  gear  axle. 

The  equations  of  motion  for  these  degrees  of  freedom  are  given  below. 
The  mass  terms  appearing  in  these  equations  are  defined  in  Appendix  D  of 
Volume  1.  The  derivation  of  the  body  forces,  arresting  hook  forces,  ground 
forces,  aerodynamic  forces  and  moments,  thrust  forces  and  shock  strut  forces 
found  in  these  equations  is  given  in  Volume  1.  The  coded  equations  for 
these  forces  and  moments  are  summarized  below. 

It  is  noted  that  the  symbol  £  represents  the  simple  graph  that  contains 
the  point  (0,  0)  and  has  zero  slope.  This  graph  is  useful  for  the  purpose 
of  maintaining  the  functional  notation  of  the  simple  surfaces  and  graphs  as 
defined  in  Volume  1  and  still  achieve  the  desired  simplifications. 
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Equations  of  Motion 


The 


equation  is 


(M  Vg^'  +  £  (M  ^)r0,  0]  3^" 

a=1 

''b  ’'b  ,  ,  ''b  ’b  , 

(M  ,  ,)  Vg"  -n/  <M  ,  ,)  V33 


“0 

=  s 


'  Sb<,>  *  8 


V  V 

’'b  b 
1  1 


I 


B^  *  S„ 


s 


1b* 


2 

The  V„  equation  is 

O 

"b  '^B  ,  "b  ^2  ^3 

(M  ^  ^B^’  +  (M  2  )  01  ^2"  3  1*^-'  ®3" 

Vb  Vg  Vg  Vg 

+  ng^  (M  ^  "^B  ^”1  ^B 


Nq 

=  I 

a=1 


a 


B^  ^bd^ 


V  V 
B  B 


g  (M 


1  1 


*  F.'>  5 


B, 


2b 
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The  V„ 
b 


3 


equation 


is 


(M 


V  V 
B  B 

1  1 


s 

a 


(M  -  )[0,  0]  3  " 

j  3 


V  V 
B  B 


V  V 
B  B 


-n/  ((M  ,  ,)  V3'  ((M  ,  ,)  v/ 


V  V 
B  B 


=  I  ^0  ‘  S,,.  .  s  Ch  ,  ,,  .  b/  S 


Iyjt  ^ 

a  3 


3b 


*  <'^b!  8bd>  *  "t'  S 


3b’ 
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The  equation  is 

D 


Cl, 


1  -’  -'  1  ®2" 
C'l -Q  CIq  CIq  ’^^3 


N, 


8  -,  d 


=  ^  ^G  ^®1dh  ^B°  ^T  '^bg 
a=1  a  fa 


8.„8 


fh 


*^dh  Tb^CIg"  ‘*A°*  ^A^'^l'SbgS’ 

e 


f  3 

+  e„„.  /I  „  w„  +  e 


'Y  f 

'f3b  Cb.  ”c 
1  a 


f3b 


\  > 


1  a 


^dh  Tb®  Sbg  S'"  -  ^od  h?°  *  «P*’  8 


1b' 


®3 

^  )[0,  0]  3^" 

0,  OlHg® 
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The 


equation  is 


Hg  57  b  ®a 

p  q)[0,  0,  0,  0]57g°'  +  2  (M  2  0]  3^" 


B  B 

+  nB^  ((M  ^ 


r^B  57b 

(M  3  c)[0,  0,  0,  0]  57g° 


N, 


g  1  d 


■  ^  ^®2dh  ^B*  ^T  Sbg  8 

a=1  a  f  a  ° 


fh 


+  e 


2dh 


TB^ao"  <Sa°*  ^A't=a”  S^gS 


fh 


M  \.i 

fa  a 
e 


*  'r3b  “c  ^  ^  'f3b  'w  > 


®2dh  ^H  ^bg  ^  ^P  ®2ed  ^NP  ^P  ^25  ^T  ®2bc  ^T  ' 
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The  equation  is 

D 


Hg  S3 

3  q)[0,  0,  0,  OlHg®'  (M  2  ®2"  3 


ilT^  3  g 


^B  ^2 


P  P 


((M  ^  ^)[0,  0,  0,  Oing""  ((M 


B  B 


2  e't°.  °. 


=  I  ^0  '’  <^3dh  Tb*  It  '  Sbg  S 

a=1  a  f  a  ° 


fh 


*  ^dh  CIb  "  <8,  '  -  I,  "(sj)  Sb,  S 

3 


fh 


'3dh  '“A 

f  a  a 
e 

f  ..  3 


*  ®f3b  "c  ^  =f3b  ^bI  'w  > 

3  a  3  a 


»3ah  ^bI  'h'  Sbg  S"’  ^  fp'  ^3ed  1np°  *  "p"  S 


3b' 


)[0,  0]  3^'' 

0,  Ol^g^ 


42 


The  q  ^  equation  is 

O 

Qb  % 

b 


"G 

=  5: 

a=1 


X  °  Tb^'J’bO  “1  S 


bg 


S 


be 


S 


cd ' 


The  equation  is 


s  s 
a  a 


"a^G 


(M  )[s^]  s^«  +  (M  0]  q^  " 

a 


=  fs  *  "g  '  'Qo  '  V  S,j) 

a  a  a  e  a 

c 

^a 


g  (M  )[0,  0]  y J  S^'^, 
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The  equation  is 


W  W 


(M  ^ 


-  X"  '%3b  ^3° 


*  %3b  Tb°  '’w  '• 


2  a 


The  equation  is 

Vj 

a 

Qq  S^Qq 

(M  %  ”0  '’"  •  <”  \>t=a-  y  V 


''g  '  <aG  *  TB®<tG  «  S,,) 


G  "^G  ‘'B  ‘■“a' 

a  a^  e 

c 


-  V,  t=a-  S’  »G  "  Sbo  -  <=0  S]  -Jo  ‘'’  8 


be' 


The  ^  equation  is 


fig  Hq 

(«  =  ^JC-aJ^o' 

a 


=  '  Qg  '  V  ^3ho  <«A  "  *  "t^a”  8°'  8 

a  a.  e  a  a 

d 


a  a 


bg 


44 


Initial  Conditions 


The  aircraft  is  assumed  to  be  oriented  at  t  =  0  such  that  one  point  of 
the  aircraft  has  just  made  contact  with  the  ground  surface.  The  candidate 
points  for  contact  are  the  landing  gear  tires  and  the  arresting  hook.  There 
are  some  cases  when  there  are  multiple  points  of  simultaneous  contact  at  the 
time  t  =  0. 


The  transformation  "^0^(0);  b  =  1,  3  and  c  =  1,  3  may  be  established 
from  the  Euler  angles  ^(0),  0(0)  and  <^(0)  which  are  the  initial  yaw, 
pitch  and  roll  angles  of  the  axi-frame.  Appendix  G  of  Volume  1  defines  the 


elements  of  this  transformation. 


The  rigid  body  translational  velocity  of  the  airframe  reference  point  N 
at  t  =  0  is 

?’(0)  =  Vg'^(O)  Ig  (0)  =  ^*^'(0)  =  d’(0)  +  s’(0)  +  v»(0)  I  . 

°c  ^ 

Normally,  the  horizontal  velocity,  the  vertical  velocity  or  sinking 
velocity  and  the  lateral  velocity  of  the  point  N  with  respect  to  the  ground 
surface  (i.e.  ^^'(0)  I^,  ^^’(0)  and  ^^'(0)  are  specified  at  t  =  0. 

Therefore,  the  body  axis  components  of  the  initial  velocity  are 

S'*'. 

d 

Also,  when  the  initial  angular  velocity  is  not  zero,  the  components  of 
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the  initial  angular  velocity  may  be  expressed  in  terms  of  the  initial  Euler 
angle  rates  as  follows: 


-  sin  (0(0))  ^*(0). 

Hg^CO)  =  cos«^(0))  Q'iO)  +  CO3(0(O))  sin((^(0))  V^'(O). 
Hg^CO)  =  -  sin((^(0))  0'(O)  4.  cos(0(O))  cos((^(0))  V^’(O). 


The  bth  airframe  modal  displacement  for  b  in  [1,  N  ]  at 

BE 

t  =  0  is  given  below.  It  is  assumed  that  the  functions  that  are  dependent 
on  the  stroke  of  the  landing  gears  can  be  evaluated  with  the  initial  stroke 
equal  to  zero  Therefore, 


(0) 


The  initial  position  of  the  point  N  with  respect  to  the  ground 
reference  point  Q  is  defined  as  follows: 

=  d(0)  =  ?(0)  • 

^^(0)  =  s(0)  =  ?(0)  ' 

^^(0)  =  v(0)  =  f(0)  ■ 


The  number  d(0)  is  normally  zero,  the  number  s(0)  is  used  to  orient  the 
point  N  laterally  with  respect  to  the  point  S  (see  Appendix  F  of  Volume  1) 
and  the  number  v(0)  is  computed  from  the  following  equation: 
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v(0)  ,  -  1/  733(0)  -<t>33  =C0,  0)  7^  JAO)  ,3^01 


a  b 


a  d 
c 


-  «A  "Qq  -  “C  -  ''W 


a  a.  c 

b 


The  equation  for  v(0)  may  be  obtained  as  follows  for  the  case  where  at 
t  =  0  the  arresting  hook  has  just  made  contact  with  the  ground  surface: 

’'(0)  “  -  C  -  IrV  ^  ^HV 

b  0  1  03 


The  a  gear  stroke  at  t  =  0  is  determined  from  the  following  equation: 


^a"»  =  ic—  Pa  ‘a  >' 

BG  a  a 

a 


The  hydraulic  fluid  expansion  in  the  a  gear  fluid  chamber  and  the  a 
gear  snubber  chamber  may  be  obtained  at  t  =  0  from  Appendix  B  in  Volume  1  by 
the  following  equations: 


- 


Pa  (3^(0))  (0) 

a  a 


/3s  «»  =  - 


Pa  'Pa"”*  \ 

a  o 


The  a  gear  bth  modal  displacement  for  b  in  [1,  N-_  ]  at  t  =  0  is 

ub 

a 

assumed  to  be  equal  to  zero. 
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Arresting  Hook  Force  Equations 


The  equations  for  the  arresting  hook  forces  and  arresting  cable 
kinematics  which  are  used  in  the  computer  program  LAND  were  extracted  from 
Appendix  F  of  Volume  1.  The  definitions  of  the  terms  in  these  equations  are 
given  in  that  Appendix.  The  following  equations,  which  are  coded  in  LAND, 
do  not  Include  the  numerical  techniques  used  for  the  iterative  solution  of 
the  nonlinear  equations: 

At  t  =  0, 

d„p(0)  -  ;„p(0)  •  ij  -  d<0)  .  (!„'■  -  8“’  1„, 

*  ))  7b'(0). 

0  b 

For  t  >  0, 
v^(t)  =  v(t)  + 

b 

For  t  <  t  ,  the  height  of  the  hook  point  is  checked  to  determine  if  it 
has  made  contact  with  the  ground  plane.  This  is  accomplished  by  first 
computing  the  number  v„„(t)  from  the  equation 

If  the  number 

is  equal  to  or  greater  zero  then  the  hook  is  in  contact  with  the  ground 
surface.  In  this  case  the  numbers  a(t)  and  b(t)  may  be  determined  from  the 
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following  equations: 


a^(t)  +  II  +  a(t)  1 


2  (t)  2  (t)  Vgp(t^) 


X^t) 


<X^<'^)>' 


(X^O)^ 


Vg<t) 


+  l( 


X<^) 


2  Vg(t)  Vgp(c^)  "Hgt'c* 


bit) 


-  <»„<!:)  +  ''Hpfb,;))  - 

T  XbT 


Since 


l^y(t)  =  a(t)  ig  (t)  +  b(t)  ig  (t), 


the  angle  C^:^(t)  is  determined  from  the  equation 


(^jj(t)  =  cos 


b(t) 


-). 


,  ,  ,2  x2,0.5 

(a(t)  +  b(t)  ) 


The  number  d  (t)  is  then  calculated  from 
H  r 

d"„p(t)  .  r„p(t)  •  I,  -  d(t)  +  (!„*'  -  S'"  i„„ 

b 

and  the  time  of  cable  pick  up  is  found  by  comparing  this  number  with  the 
number  obtained  from  the  equation 
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SaR* 


The  numbers  a^(t),  b^(t>,  a^Ct),  b2(t)  and  bj^(t)  are  determined  from 
the  following  equations: 

b^Ct)  =  -  Vjj(t)  -  Vg.  (F-1) 

+  b^^(t)  =  l^p^-  (F-3) 


“  a^(t)  a^Ct)  +  b^(t)  a^Ct) 

=  a^^Ct)  +  b^^t). 


(F-4) 


(F-5) 


The  following  procedure  is  used  for  solution  of  these  equations: 

(1)  Assume  a  number  for  b^(t). 

(2)  Calculate  aj^(t)  from  equation  (F-3)  (it  is  assumed  that  a^(t)  is 
negative) . 

(3)  Calculate  b2(t)  from  equation  (F-1). 

(4)  Calculate  a2(t)  from  equation  (F-2). 

(5)  Calculate  a  new  candidate  for  bj(t)  from  equation  (F-4). 

(6)  Go  to  step  (2)  of  this  process. 
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This  procedure  is  terminated  when  the  change  in  b^(t)  is  within  the 
required  precision. 


'^^(t)  =  s(t)  +  +  a^(t)  yg^(t)  +  b^(t) 

The  following  equations  are  used  to  calculate  the  numbers  1  (t), 

Iw 

Ij^(t),  Cl  ^(t)  and  QgCt): 
x(t)  =  2  (be  +  Tj  ^{t))  lL(t). 
y(t)  =  2  Ij^(t). 

z(t)  =  (l^p^  -  ^g^(t)  -  (be  +  -  iL^(t)). 

(x^(t)  +  y^(t))  sin^(Qj^(t))  +  2  y(t)  2(t)  sin(Q^(t))  (F-10) 

+  (z^(t)  -  x^(t))  =  0. 


tan(ag(t)) 


sin(aj^(t)) 

— — —  -  cos(Q  (t) ) 

L(t)  ^ 


Ij^(t)  sin(Clj^(t)) 

1  (t)  =  - 

3in(Qj^(t)) 


(F-11 ) 


(F-12) 


If  |€^(t)|  is  less  than  or  equal  to  |6g  (t)|  , 

Li 

the  hook  will  not  slip  on  the  cable  and 

l^(t)  -  lp(t)  =  kg^R(t).  (F-13) 
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The  numbers 
obtained  as  follows: 

(1)  Assume  a  number  .or  1  (t). 

Lj 

(2)  Calculate  Clj^(t)  from  equation  (F-10). 

(3)  Calculate  CLoCt)  from  equation  (F-11). 

n 

(4)  Calculate  Ip(fc)  from  equation  (F-12). 

(5)  Calculate  a  new  candidate  for  l^(t)  from  equation  (F-13). 

(6)  Go  to  step  (2)  in  this  process. 


This  procedure  is  terminated  when  the  change  in  1, (t)  is  within  the 

Ij 

desired  precision. 


^C 


a,(t) 

2 


a,(t) 

2 


(F- 


sin(a^(t)  +  e^(t)  -  €^(t))  = 


(t)  -  Ij^(t)  sin(aj^(t)) 


1 


HP 


cos(Q^(t)  + 


be  +7]  ^(t) 

€c(t)  -  ^H(t))  =  - 


l^(t)  cos(CL^(t)) 


sin(€^(t))  =  sin(Q^(t)  +  6^(t))  cos(Q^(t)  +  ^Q(t)  -  €j^(t)) 
-  cos(Q^(t)  +  sin(Q^(t)  +  ^^Ct)  -  €-^(t)). 

cos(£^(t))  =  cos(Q^(t)  +  €^(t))  cos(Q^(t)  + 

+  sin(Cl^(t)  +  6^(t))  3in(Q^(t)  +  €^(t)  -  €j^(t)). 


14) 
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sin( 

tan(  €  (t))  =  - . 

cos(  €  ^(t) ) 

In  the  event  that  |€j^(t)  |  is  greater  than  the  limit  angle  j  £  (t)  1  , 

A  ^ 

then  ^„(t)  which  is  calculated  by  the  equation 
H 

^„(t) 

A  “  ,  1 

€„(t)  =  -; - -  (t)  is  substituted  for  €„(t). 

iL^(t)  =  -  Ij^p  3in(a^^(t)  +  €^(t)  -  €jj(t)))^  (F-15) 

+  (be  +  -  ij^p  cos(Qj^(t)  +  €^(t)  -  €j^(t)))^. 

For  this  case  the  numbers  Qj^(t),  Qp(t), 
determined  from  the  following  procedure: 

(1)  Assume  a  number  for  l^(t). 

(2)  Calculate  Q  (t)  from  equation  (F-10). 

Lj 

(3)  Calculate  CL  from  equation  (F-11). 

h 

(4)  Calculate  l„(t)  from  equation  (F-12). 

K 

(5)  Calculate  from  equation  (F-14). 

(6)  Calculate  l^(t)  from  equation  (F-15). 

(7)  Go  to  step  (2)  in  this  process. 

This  procedure  is  terminated  when  the  change  in  1, (t)  is  within  the 
desired  precision. 
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RO(t)  =  lp(t)  sinCQpCt)). 

A 

F„  (RO(t))  =  F„  (t). 

Hi  Hi 

When  the  cable  is  slipping  on  the  hook  and  €„(t)  is  greater  than  zero 

n 

F  (t) 

|f  (t)|  =  - ^ - . 

(exp(/Li^  (Ct^(t)  +  a^Ct)))  sinca^ct)  +  sinCa^Ct)) 

|f^(t)|  =  |f^(t)|  expCfl^  a^Ct))) 

For  the  case  where  the  cable  is  slipping  on  the  hook  and  €  (t)  is  less 

H 

than  zero 

F  (t) 

IVt)|  =  - ^ - . 

{expijj.^  (Q^(t)  +  Qp(t)))  sin(Qji(t))  +  sinCQ^Ct))) 

lfii(t)l  =  |l^(t)|  expijJL^  +  ap(t))) 

iFHp(t)|  =  Fiip(t)  =  lTji(t)|^  +  +  2  IfpCt)!  |f^(t)|  cos(2  €^(t)). 

(  ll^Ct)  1  -  |Tji(t)|  )  sin(  €^(t)) 
sin(  €  (t))  =  - . 

"  |p„p<t)| 

When  the  cable  is  not  slipping  on  the  hook 
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|Fj^p(t)|  3in(  €j^(t)  + 


lT^(t)l  = 

sin(2  €^(t)) 


Fh  (t)  -  |Tj^(t)|  sin(a^(t)) 


sin(CLp(t)) 


-  bpCt) 

tan(Q  (t))  =  - . 

a^Ct) 

=  cos(a^(t)). 

=  -  sin(a|^(t)). 


Y  \t)  =  sin(ap(t) ) . 

=  C03(Q^(t))  . 

All  other  Y„  (t)^=  0. 

«b 

Fj^\t)  =  -  Fjip(t)  cos(Q^(t))  sin(Q^(t)  +  “  €jj(t)). 

F^^(t)  =  -  cos{a^(t)  +  <£^(t)  -  €^(t)). 

Fp^(t)  =  F^p(t)  sin(a^(t))  3in(Q^(t)  +  €^(t)  -  €^(t)). 
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Ground  Force  Equations 


The  equations  for  the  forces  on  the  landing  gear  tires  from  the  ground 
are  extracted  mainly  from  Appendix  E  of  Volume  1.  The  definitions  for  the 
terms  in  these  equations  are  found  in  that  Appendix  and  in  the  main  body  of 
Volume  1 . 


CIg  °  -  ^b' 


c  V  2, 2, 0.5 


G  OB 
^2  " 


G  OB 
^2  ° 


Co  "  <Tb'  h  -  Tb"  Ij) 

c  c 


a  KQ,  “  y,')^ .  (a,  =  y/)^i'>-5 

“2  ° 


G  OB 

c 


I 


3* 


'(t)  •  (t)  =  yg^t)  \t)  v/(t) 

a  a^  f  a^^ 

F^  '(t)  •  (t)  =  y„  ^(t)  (v/(t)  +  e^P^Hg^Ct)  (1^  "*(1) 

a  fa.  a 

2  D 

*03  “(t)  (g  ‘'(t)  *  ■'(^^(t)))  S,p  8<,b 

a  a  a 

q 

-Qg  '(t)  JB\t)  Tw  S,r- 

a .  b  a.  a  a  a 

d  h 
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3 


a  a^  a  a  a 


The  a  gear  wheel  has  reached  a  spin  up  condition  at  the  time  t  when 

oU 


("a  "  "fa  (^su)  =  °- 

a  a  a^ 


For  t  <  tgy: 


(-  ?A  '(t)  •  iy  (t)  -  ?p^  -(t)  •  iy  (t))  (t) 

a  a^  a  a^  a^ 

+  (-  ?A  '(t)  '  iw  (t))  I„  (t) 

a  a^  a^ 


-  A(t)  (t)  -  B(t)  (t) 

^  ^2 


(t)  =  tan 

H 


-(  B(t) 


R  (t) 
a 


"•a  *  '■fa  \ 

a  a  a. 


"a 

a  a. 


"g  =  -  Mg  I"g  I 

a  a  a 


‘'o  "  =  -  Mg  '“al  !‘'a 


F  ^  =  F  ^  =  F  ^[v  ] 

G  G  G  '■  W  -'■ 

a  a  a  a 


For  t  >  t. 
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Aerodynamic  Force  Equations 


The  equations  for  the  aerodynamic  forces  are  extracted  from  the  main 
body  of  Volume  1 .  The  sign  convention  that  is  used  for  the  rigid  body 
aerodynamic  coefficients  that  are  used  to  derive  the  rigid  body  aerodynamic 
forces  for  the  LAND  program  is  defined  by  the  equations  below. 


V,,  -  I,  V,. 

W  1  W 


a(t)  =  tan 


Vg’(t)  .  y  ’(t)  v„' 


(C(t)  = 


VB^(t) .  y^V)  v„ 
Vj'ct) .  y^V)  v„' 


:t)  =  1/2  p  [(Yg'd)  .  y^'ct)  .  (Vg^d)  .  'i^Y 


.  (Vg^d)  .  yg’d) 


haw  =  a(t) 


a5  d)  =  5„d)  -  §, 


'reference 


x(t)  =  q(t)  s  (c„  +  c„  Aa(t)  +  AS^(t)) 

^0 
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Z(t)  = 

FpVt) 

Fp^(t) 
Fp^(t) 
L(t)  = 

N(t)  = 

Mp^t) 

Mp^(t) 

Mp^(t) 


q(t)  S  (C  +  c  Aa(t)  +  C_<^  A5  (t)) 
^0  ^CL  Z5 


=  X(t)  cos(Q(t))  -  3in(Q(t)). 


q(t)  S  (C  j6(t)). 

P 


X(t)  sin(Q(t))  +  Z(t)  GOs(Q(t)) 


q(t)  S  b  ^(t). 

P 

q(t)  S  b  C  /S(t). 

P 


=  L(t)  coscact))  -  N(t)  sin(Q(t)) 


Q  C  t )  S  G  ^  C  +  C  d  ^  t  ^  C  ^  AS^(t)) 


”0  "a 


m  X  —  e 
e 


=  L(t)  sin(Q(t))  +  N(t)  cosCCKt)). 


^  ® ""■'•'‘be 
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Shock  Strut  Force  Equations 

The  equations  for  the  shock  strut  forces  are  taken  from  Appendix  B  in 
Volume  1 .  The  definitions  of  the  terms  in  the  equations  are  given  in  that 
Appendix . 


For  the  type  I  shock  strut: 


^S  "  ^AMB  *A  " 

a  a  a  a  a 


+  p  (t)  (A  -  A  (p  (t)))  -  p  (s  (t))  A  +  F  (t)  for  s  >  0. 
n  A  a.  A  r  a  — 

3  3  3  3  a  a  a 

a  a  a  a 


P  (t)  =  p  (t)  -  Pj  (3^(t)). 

S  S  a 

a  a 


Ap  U)  =  Aq  -  A^  (s^(t)) 
a  a 


”  ^AMB  ^A  “  ~  ^P 

a  a  a  a  a 

*  V  \  ‘X  ■  ‘’a  **  ''f 

S  S  S  S  a  a  a 

a  a  a  a 

-  K  3  (t)  -  C  3  '(t)  for  s  <  0. 

dG  a  dG  a  a 

a  a 


(t) 

a 

(t) 

a 


v„  (t) 
a 


0 


is  <  0. 


is  >  0. 
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V„  (t)'  =  A„  3,’(t). 
a  a 


V,  (t)  =  V.  -  A,  sjt). 
A  A-  A  a 

a  0  a 

a 


For  the  type  II  shock  strut: 


''s  =  Pamb  \  -  Ph  'P'  <*h  -  ‘p  <=a<p>>  -  ‘h,  > 

a  a  a  a  a  S 

a 

+  p  (t)  (A  -  A  (p  (t)))  -  p  (s  (t))  A  +  F  (t)  for  s  (t)  >  0. 

”s  ^a  ^  ^a  ^a  ^  ~ 

a  a  a  a 


p  (t)  =  p  (t)  -  p  ,  (t) 

^a 

a  a 


For  the  case  where  s  is  less  than  zero,  the  same  stiffness  and  damping 

di 

terms  that  vere  used  for  the  type  I  shock  strut  are  included. 


\  <P>'  =  -  \  \  V  -  '‘h  -  ‘p  Pa'<P> 

3  o  o  o  o  3  3 

3  3  3  3 


Pg  'p>  =  -  «w  Qg  '<p>  -■^b^  ''b"<‘>> 


-  "w  Qg  <’'b'<‘’’  *^b^  “b''^’  -^b'  ''b^<‘» 

=>  % 

-  Qq  ^<t)  (Vg^(t)'  -ffig'  ''b'"-'^ 

a  3^. 

D 


-  »«  Qb  ®<t)  e'’=‘'ngP(t)'  S  (1^  ■> 


*  ’'a,  "(t)  .  '■(s^(t))  Qg  S,,  SgB 

a  a  a^ 
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«W  V<‘>  S 


a  a 


bh 


a  A 


bh 


M„  ^(s^(t),  0(t))  q^  "'"(t)  8 


a  A 


bf 


(t) 


3  '(t) 
a 


s  ' (t) 
a 


'Met)  "g.  '‘> 


■'g.  <‘» 

A 
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APPENDIX  A 


SOURCE  DECK  LISTING 


PROGRAM  LAND ( INPUT , OUTPUT , TAPES = INPUT , TAPES =OUTPUT ) 


main  program  for  differential  equation  integration  routine 

MAIN 

1 

ARRESTED  LANDING  ANALYSIS 

MAIN 

2 

COMMON  Y(70),  DYDX(70),  FIRSTY{70),  P(2000), 

MAIN 

3 

1 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

MAIN 

4 

EQUIVALENCE  (NTEGER(48),  NZERO) 

MAIN 

5 

10 

NZERO  =  0 

MAIN 

6 

CALL  GUIDE 

MAIN 

7 

GO  TO  10 

MAIN 

8 

END 

MAIN 

9 

SUBROUTINE  FOR  CALLING  INPUT  DATA  AND  INTEGRATION  SUBROUTINE 

GIDE 

1 

SUBROUTINE  GUIDE 

GIDE 

2 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 

GIDE 

3 

1 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2(125,1),  Q(70) 

GIDE 

4 

EQUIVALENCE  (NTEGER(48),  NZERO) 

GIDE 

5 

IF  (NZERO)  70,  10,  70 

GIDE 

6 

10 

DO  20  I  =  1,  500 

GIDE 

7 

20 

P( I  )  =  0.0 

GIDE 

8 

DO  301=1,70 

GIDE 

9 

DYDX(I)  =  0.0 

GIDE 

10 

30 

FIRSTY(I)  =0.0 

GIDE 

1  1 

DYDX(I)  =  1.0 

GIDE 

12 

DO  401=1,  200 

GIDE 

13 

40 

NTEGER  { I )  =  0 

GIDE 

14 

DO  50  I  =  1 ,  40 

GIDE 

15 

DO  50  J  =  1 ,  1 10 

GIDE 

16 

50 

TABL1(I,J)  =  0. 

GIDE 

1  7 

DO  60  I  =  1 ,  125 

GIDE 

18 

60 

TABL2( 1,1)  =  0.0 

GIDE 

1 : 

70 

DO  80  I  =  501 ,  2000 

GIDE 

20 

80 

P(  I  )  =  0.0 

GIDE 

21 

CALL  INPUT 

GIDE 

22 

CALL  NTGRTE 

GIDE 

23 

RETURN 

GIDE 

24 

END 

GIDE 

25 

INPUT  SUBROUTINE  FOR  DIFFERENTIAL  EQUATION  ROUTINE 

DEIN 

1 

SUBROUTINE  INPUT 

DEIN 

2 

CHARACTER  *72  MISC1 ,  MISC2 

DEIN 

3 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 

DEIN 

4 

1 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

DEIN 

5 

DIMENSION  NTB1 ( 1 10) ,  NTB21(1),  NTB22(1) 

DEIN 

6 

DIMENSION  GAMB(3,3) 

DEIN 

7 

EQUIVALENCE  (P(164),  VWIND) 

DEIN 

8 

EQUIVALENCE  (P(187),  VA)  ,  (P(188),  VE .  {P(189),  VV),DEIN 

9 

1 

(P(190),  PITCH),  (P(191),  ROLL) 

DEIN 

10 

EQUIVALENCE  (P(571),  GAME) 

DEIN 

1  1 

EQUIVALENCE  (NTEGER(I),  I DENT),  (NTEGER(2),  NPF1  )  , 

DEIN 

12 

1 

{NTEGER( 3 ) ,NPF2 ) ,  (NTEGER(4),  NPF3 ) ,  {NTEGER(5),  NPF4 ) , 

DEIN 

1  3 

2 

(NTEGER(6),  NFIRST) ,  (NTEGSR(7),  NT1 ) ,  (NTEGER(8),  NT2  )  , 

DEIN 

1  4 

3 

(NTEGER(9),  NTW1 ) ,  (NTEGER(IO),  NTW2 ) , 

DEIN 

1  5 

4 

(NTEGER(12),  NTSKIP),  {NTEGER(13),  NEQ) ,  (NTEGER(14),  NMORE) 

DEIN 

16 

EQUIVALENCE  (NTEGER (25),  NVEVV) 

DEIN 

1  7 
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SOURCE  DECK  LISTING 


EQU I VALENCE  ( NTEGER (49),  NPAGE ) ,  ( NTEGER (56), 

NTB1 ) ,  DEIN 

18 

1 

(NTEGER( 166) ,  NTB21 ) ,  (NTEGER( 1 67 ) ,  NTB22) 

DEIN 

19 

NPAGE  =  1 

DEIN 

20 

READ  CONTROL  INTEGERS  INTO  THE  PROBLEM 

DEIN 

21 

READ  (5, 10,END=340)  (NTEGER(I),  I  =  1,  14) 

DEIN 

22 

10 

FORMAT  ( BZ , 1 4 1  5 ) 

DEIN 

23 

IF  (NMORE)  20,  30,  20 

DEIN 

24 

20 

READ  (5,10)  (NTEGER(I),  I  =  15,  NMORE) 

DEIN 

25 

30 

CALL  PAGEHD 

DEIN 

26 

WRITE  OUT  RUN  INFORMATION 

DEIN 

27 

40 

READ  (5, ’ (A) ’ )  MISC1 

DEIN 

28 

READ  (5, ' (A) ' )  MISC2 

DEIN 

29 

WRITE  (6, ' (A) ' )  MISC1 

DEIN 

30 

WRITE  (6, ' (A) ’ )  MISC2 

DEIN 

31 

READ  PARAMETERS  INTO  THE  PROBLEM  BY  FORMAT  1 

DEIN 

32 

IF  (NPF1 )  60,  100,  60 

DEIN 

33 

60 

DO  90  I  =  1 ,  NPF1 

DEIN 

34 

READ  (5,70)  NP11,  NP22,  NP33 

DEIN 

35 

70 

FORMAT  (BZ,3I5) 

DEIN 

36 

READ  (5,80)  (P(J),  J  =  NP11,  NP22,  NP33) 

DEIN 

37 

80 

FORMAT  (BZ,6E10.3) 

DEIN 

38 

90 

CONTINUE 

DEIN 

39 

READ  PARAMETERS  INTO  THE  PROBLEM  BY  FORMAT  2 

DEIN 

40 

100 

IF  (NPF2)  110,  140,  110 

DEIN 

41 

1  10 

DO  130  J  =  1 ,  NPF2 

DEIN 

42 

READ  (5,120)  I,  P(I) 

DEIN 

43 

120 

FORMAT  (BZ,I5,E15.7) 

DEIN 

44 

130 

CONTINUE 

DEIN 

45 

READ  INTEGERS  INTO  THE  PROBLEM  BY  FORMAT  3 

DEIN 

46 

140 

IF  (NPF3)  150,  170,  150 

DEIN 

47 

1  50 

DO  160  I  =  1,  NPF3 

DEIN 

48 

READ  (5,70)  NNG11,  NNG22,  NNG33 

DEIN 

49 

READ  (5,10)  (NTEGER(J),  J  =  NNG1 1 ,  NNG22, 

DEIN 

50 

1 

NNG33) 

DEIN 

51 

160 

CONTINUE 

DEIN 

52 

READ  INTEGERS  INTO  THE  PROBLEM  BY  FORMAT  4 

DEIN 

53 

170 

IF  (NPF4)  180,  210,  180 

DEIN 

54 

180 

DO  200  J  =  1 ,  NPF4 

DEIN 

55 

READ  (5,190)  I,  NTEGER(I) 

DEIN 

56 

1  90 

FORMAT  ( BZ , I  5 , 1 1 5 ) 

DEIN 

57 

200 

CONTINUE 

DEIN 

58 

READ  INITIAL  CONDITIONS  INTO  THE  PROBLEM 

DEIN 

59 

210 

IF  (NFIRST)  220,  240,  220 

DEIN 

60 

220 

DO  231  J  =  1,  NFIRST 

DEIN 

61 

230 

READ  (5,120)  I,  FIRSTY(I) 

DEIN 

62 

231 

CONTINUE 

DEIN 

63 

READ  IN  SINGLE  TABLES 

DEIN 

64 

240 

IF  (NT1 )  250,  270,  250 

DEIN 

65 

250 

DO  260  J  =  1 ,  NT1 

DEIN 

66 

READ  (5,190)  I,  NTBI(I) 

DEIN 

67 

NTAB  =  NTB1 (  I  ) 

DEIN 

68 

NTB  =  NTAB  *  2 

DEIN 

69 

66 


SOURCE  DECK  LISTING 


NTABP1  =  NTAB  +  1 

READ  (5,80)  (TABL1(K,I),  K  =  1,  NTAB) 

READ  (5,80)  (TABL1(K,I),  K  =  NTABPI ,  NTB) 

260  CONTINUE 

READ  IN  DOUBLE  TABLES 
270  IF  (NT2)  280,  300,  280 

280  DO  290  J  =  1 ,  NT2 

READ  (5,190)  I,  NTB21(I),  NTB22(l) 

NTB21 I  =  NTB21 ( I ) 

NTP  =  NTB21(I)  *  NTB22(I) 

NTT1P1  =  NTB21 ( I )  +  1 

NNTT21  =  NTB21(I)  +  NTB22(I) 

NN21P1  =  NNTT21  +  1 

NF  =  NNTT21  +  NTP 

READ  (5,80)  (TABL2(K,I),  K  =  1,  NTB21I) 

READ  (5,80)  (TABL2(K,I),  K  =  NTT1P1,  NNTT21) 
READ  (5,80)  (TABL2(K,I),  K  =  NN21P1,  NF) 

290  CONTINUE 

300  IF  (NVEVV)  310,  320,  310 

310  VEI  =  VE  *  20.268 

VVI  =  VV  *  12.0 

FIRSTY( 11)=  ROLL 

FIRSTY( 12)  =  PITCH 

PHIR  =  FIRSTY(II)  /  57.29578 

THETR  =  FIRSTY(12)  /  57.29578 

PSIR  =  FIRSTY(13)  /  57.29578 

SY11  =  SIN(PHIR) 

CY11  =  COS(PHIR) 

SY12  =  SIN(THETR) 

CY12  =  COS (THETR) 

SY13  =  SIN(PSIR) 

CY1 3  =  COS(PSIR) 

GAMB( 1,1)  =  CY1 2  *  CY1 3 
GAMB(3, 1 )  =  -  SY12 

GAMB(1,2)  =  -  SY13  *  CY11  +  SY1 1  *  SY12  *  CY13 
GAMB(3,2)  =  SY11  *  CY12 

GAM3(1,3)  =  SY13  *  SY1 1  +  CY1 1  »  SY12  *  CY13 
GAMB( 3 , 3 )  =  CY1 1  *  CY1 2 

FIRSTY(2)  =  GAMB(1,1)  *  VEI  +  GAMB(3,1)  *  VVI 

FIRSTY(3)  =  GAMB(1,2)  *  VEI  +  GAMB(3,2)  *  VVI 

FIRSTY(4)  =  GAMB(1,3)  *  VEI  +  GAMB(3,3)  *  VVI 

VAI  =  VA  *  20.268 
GAMMAR  =  ASIN(VVI  /  VAI ) 

VAX  =  VAI  *  COS (GAMMAR) 

VWIND  =  VAX  -  VEI 

ZERO  THE  Q  AND  SET  Y  TO  INITIAL  VALUES 
320  DO  330  I  =  1,  NEQ 

Q(  I  )  =  0.0 

Y( I )  =  FIRSTY( I ) 

330  CONTINUE 

Y( 1 1 )  =  Y( 1 1 )  /  57.29578 
Y( 12)  =  Y( 12)  /  57.29578 


DEIN  70 
DEIN  71 
DEIN  72 
DEIN  73 
DEIN  74 
DEIN  75 
DEIN  76 
DEIN  77 
DEIN  78 
DEIN  79 
DEIN  80 
DEIN  81 
DEIN  82 
DEIN  83 
DEIN  84 
DEIN  85 
DEIN  86 
DEIN  87 
DEIN  88 
DEIN  89 
DEIN  90 
DEIN  91 
DEIN  92 
DEIN  93 
DEIN  94 
DEIN  95 
DEIN  96 
DEIN  97 
DEIN  98 
DEIN  99 
DEIN100 
DEIN101 
DEIN102 
DEIN103 
DEIN1 04 
DEIN1 05 
DEIN106 
DEIN107 
DEIN108 
DEIN1 09 
DEIN1 1 0 
DEIN1 1 1 
DEIN1 1 2 
DEIN1 1 3 
DEIN1 1 4 
DEIN1 1 5 
DEIN1 1 6 
DEIN1 1 7 
DEIN1  18 
DEIN1 1 9 
DEIN1 20 
DEIN1 2 1 
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Y(13)  =  '''13)  /  57.29S78 
PRINT  INPUT  DATA 

CALL  INAID 

RETURN 

STOP 

END 

SUBROUTINE  FOR  PRINTING  INPUT  DATA 
SUBROUTINE  INAID 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 
NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  MUR1 ,  MUR2,  MUR3 ,  MW1 ,  MW2,  MW3 ,  MUC,  KBAR, 
LHV,  LHP,  LLP,  MUB1 ,  MUB2 ,  MUB3,  KBF1 ,  KBF2 ,  KBF3 ,  KBG1 , 
KBG2,  KBG3,  KBULK,  MV1V1,  M0101 ,  M0102,  M0103,  M0201 ,  M0202 , 


M0203,  M0301 ,  M0302 ,  M0303 , 
MV2S3,  MV3S1 ,  MV3S2 ,  MV3S3, 
M02S3,  M03S2,  M03S3 ,  MQB1 1 , 
MQB66,  MQB77,  MQB88,  KQB1 1 , 
KQB66,  KQB77,  KQB88,  MOW1 ,  M 
DIMENSION  ZQG1 (2) , 
DIMENSION  CIQA(8) , 


MV1S1,  MV1S2,  MV1S3,  MV2S2 , 
M01S2,  M01S3,  M02S1 ,  M02S2 , 
MQB22,  MQB33,  MQB44 ,  MQB55, 
KQB22,  KQB33,  KQB44 ,  KQB55, 
MOW2,  M0W3 
,  ZQG2(2),  ZQG3(2) 

,  CIQ0(8) 


XA2(3) , 
XS2(57) 


(P(17) , 
(P{21 ) , 
(P(24) , 
(P(28) , 
(P(32) , 
(P(36) , 
(P(40) , 
(P(45) , 

(P(57) , 
(P(61 ) , 
(P(64) , 
(P(68) , 
(P(72) , 
(P(76) , 
(P(79) , 
(P(83) , 
(P(88) , 

(P(97) , 
(P(101 ) 
(P(104) 
(P(108) 
(P(n  1  ) 
(p(n4) 
{p(n7) 


DIMENSION  XN(3) ,  XT1(3),  XT2 ( 3 ) ,  XT3 ( 3 ) ,  XA1(3), 
XA3{3),  XH(3),  XTH(3),  XP(3),  XS1{50),  YS1(150), 

YS2( 171 ) 

DIMENSION  NTB1 ( 1 10) ,  NTB21(1),  NTB22{1) 

EQUIVALENCE  (P(3),  XN) ,  (P(6),  KBULK),  (P(7),  DENOIL) 
EQUIVALENCE  (P(11),  XT1 ) ,  (P{14),  XA1 ) , 

WC13),  (P(18),  ETA1 ) ,  (P(19),  ZETA1 ) ,  (P(20),  MUB1), 
KBF1),  (P(22),  CBG1),  (P(23),  KBG1 ) , 

VOLH01),  (P(25),  AH1),  (P(26),  AA1 ) ,  (P(27),  A01 ) , 

CD1),  (P(29),  VOLS01),  (P(30),  AHS1 ) ,  (P(31),  ANSE1 ) , 
ANSC1),  (P(33),  CDS1),  (P(34),  RW1 ) ,  (P(35),  MV1S1), 

,  {P(38) ,  MOW1 ) 

(P(43),  AP1AVG) 


VOLH01),  (P(25),  AH1), 
CD1),  (P(29),  VOLS01), 
ANSC1),  (P(33),  CDS1), 
MV3S1 ) ,  (P(37),  M02S1) 
ZQG1),  (P(42),  VW10), 
MW1),  (P(46),  CCOEF1) 
EQUIVALENCE  (P(51), 
WC23),  (P(58),  ETA2), 
KBF2),  (P(62),  CBG2), 
VOLH02) ,  (P(65) ,  AH2) , 
CD2),  (P(69),  VOLS02), 
ANSC2),  (P(73),  CDS2), 
MV2S2),  (P(77),  MV3S2) 
M02S2),  (P(80),  M03S2) 
ZQG2),  (P(85),  VW20), 
MW2),  {P(89),  CCOEF2) 


(P(27)  , 
(P(31  ) 
(P(35)  , 


MUB1 ) , 

A01  )  , 
ANSE1 ) , 
MV1S1 ) , 


(P(44),  MUR1 ) 


XT2),  (P(54),  XA2), 

(P(59),  ZETA2),  (P(60),  MUB2 ) , 
(P(63),  KBG2), 

(P(66),  AA2),  (P(67),  A02 ) , 
(P(70),  AHS2),  (P(71),  ANSE2), 
(P(74),  RW2),  (P(75),  MV1S2), 

,  (P(78),  M01S2), 

,  (P(81),  MOW2), 

(P{86),  AP2AVG),  (P{87),  MUR2 ) , 


EQUIVALENCE  (P(9l),  XT 
WC33),  (P(98),  ETA3),  (P 
KBF3) ,  (P( 102) ,  CBG3) , 
VOLH03),  (P(105),  AH3), 
CD3),  (P(109),  VOLS03), 
ANSE3),  (P(112),  ANSC3) 
RW3) ,  (P( 115) ,  MV1S3) , 
MV3S3) ,  (P( 1 18) ,  M01S3) 


XT3),  (P(94),  XA3), 
(P(99),  ZETA3),  (P(IOO), 

,  (P(103),  KBG3), 

),  (P(106),  AA3),  (P(107) 
)  ,  (P( 1 10) ,  AHS3) , 

3),  (P{113),  CDS3), 

,  (P( 1 16) ,  MV2S3) , 

3),  (P(119),  M02S3), 


MUB3) 


DEIN122 
DEIN123 
DEIN124 
DEIN1 25 
DEIN126 
DEIN1 27 
I  NAD  1 
I  NAD  2 
I  NAD  3 
I  NAD  4 
I  NAD  5 
I  NAD  6 
I  NAD  7 
I  NAD  8 
I  NAD  9 
INAD  10 
INAD  1 1 
INAD  12 
INAD  13 
INAD  14 
INAD  15 
INAD  16 
INAD  17 
INAD  18 
ilNAD  19 
INAD  20 
INAD  21 
INAD  22 
INAD  23 
INAD  24 
INAD  25 
INAD  26 
INAD  27 
INAD  28 
INAD  29 
INAD  30 
INAD  31 
INAD  32 
INAD  33 
INAD  34 
INAD  35 
INAD  36 
INAD  37 
INAD  38 
INAD  39 
INAD  40 
INAD  41 
INAD  42 
INAD  43 
INAD  44 
INAD  45 
INAD  46 
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8 

9 

1 

1 

2 

3 

4 

1 

2 

3 

1 

2 

3 

4 

5 


1 


1 

2 

1 

2 

1 

2 

1 

2 

3 

4 

5 

6 

7 

8 


1 

2 

1 


10 

20 

1 


(P( 120) 
(P(123) 
(P(127) 

(P(135) 

(P{139) 

(P(143) 

(P(150) 

{P(153) , 
(P(156) , 
(P(159) , 

{P(165) , 
(P(169) , 
( P  ( ’  7  2  )  , 
(P(175) i 
(P(178) , 


(P(189) 


(P(403) 

{P(406) 

(P{413) 

(P{416) 

{P(423) 

(P(426) 


(P(433) 
(P(436) 
(P(439) 
(P(442) 
(P(445) 
(P(448) 
{P(451 ) , 
{P(454) , 


M03S3),  (P(121),  MOW3), 

ZQG3),  (P(125),  VW30),  (P(126),  AP3AVG), 

MUR3),  (P(128),  MW3),  (P(129),  CCOEF3) 

EQUIVALENCE  (P(131),  XH) ,  (P{134),  LHV) , 

LLP),  (P(136),  PHIHKO),  (P(137),  LHP),  (P(138),  KBAR) 
DBAR),  (P(140),  BC),  (P(141),  VS),  (P{142),  VHPTC) , 
MUC),  (P(144),  RUNMAX),  (P(146),  XTH)  ,  (ph49),  SIGT) 
THRUST ) 

EQUIVALENCE  (P(151),  MV1V1 ) ,  (P(152),  M0101) 

M0102),  (P(154),  M0103),  (P(155),  M0201 ) , 

M0202),  (P(157),  M0203),  (P(158),  M0301 ) , 

M0302),  (P(160),  M0303) 

EQUIVALENCE  (P(161),  XP) ,  (P(164),  VWIND) , 

RHO),  (P(166),  S),  (P(167),  CBAR) ,  (P(168),  B), 
DELTA),  (P(170),  CXAL),  (P(171),  CZAL), 

CYBT),  (P{173),  CXDL),  (P(174),  CZDL) , 

CMAL),  (P(176),  CLBT),  (P(177),  CNBT) , 

CMDL),  (P(179),  CXO),  (P(180),  CZO ) ,  (P(181),  CMO ) 
EQUIVALENCE  (P(182),  ALFREF),  (P(183),  DELREF) 
EQUIVALENCE  (P(187),  VA) ,  (P(188),  VE) , 

VV),  (P(190),  PITCH),  (P(191),  ROLL) 

EQUIVALENCE  (P(209),  CIQA) ,  (P(225),  CIQO) 
EQUIVALENCE  (P{401),  MQB1 1 ) ,  (P(402),  MQB22), 

MQB33),  (P(404),  MQB44),  (P(405),  MQB55), 

MQB66),  (P(407),  MQB77),  (P(408),  MQB88) 

EQUIVALENCE  (pUiI),  ZQBI  1  )  ,  (pU12),  2QB22), 

ZQB33),  (P(414),  2QB44),  (P(415),  ZQB55), 

ZQB66),  (P{417),  2QB77),  (P(418),  ZQB88) 

equivalence  (P(421),  KQBI 1 ) ,  (P(422),  KQB22), 

KQB33),  (P{424),  KQB44),  (P(425),  KQB55), 

KQB66),  {P(427),  KQB77),  (P(428),  KQB88) 

EQUIVALENCE  (P(431),  PBH1 1 ) ,  (P(432),  PBH21), 

PBH31),  (P(434),  PBH12),  (P(435),  PBH22), 

(P(438) 

(P{441 ) 

(P(444 ) 

(P(447) 

(P(450) 

(PU53) 


(P{437) 
(P(440) 
(P(443) 
(P(446) 
(P(449) 
{P(452) , 


PBH1 3) 
PBH14 ) 
PBH15) 
PBH16) 
PBH17) 
PBH18) , 


PBH23 ) , 
PBH24) , 
PBH25) , 
PBH26) , 
PBH27 ) , 
PBH28 ) , 


PBH32 ) 

PBH33) 

PBH34 ) 

PBH35) 

PBH36) 

PBH37) 

PBH38) 

equivalence  {NTEGER{9),  NTWI),  (NTEGER(IO),  NTW2) 
EQUIVALENCE  (NTEGERv12),  NTSKIP) , 

(NTreER(25),  NVEVV),  (NTEGEP(49),  NPAGE) ,  (NTEGER(50),  NLINE) , 
(NTBGER(51),  NSKIP),  {NTEGER(53),  NPRT) 

(NTSOEROeT'OTB™™  ■  INTEGER!  1 66 ) ,  NTB21), 

WRITE  (6,10) 

FORMAT  {//  lOX,  1 0H INPUT  DATA) 

WRITE  (6,20)  P( 1 ) ,  P(2) 

FORMAT  (  /  10X,  2 3H INTEGRATION  TIME  STEP  =,  F7 . 4 ,  5H  SEC 
/10X,  23HMAXIMUM  RUN  TIME  =,  F7 . 4  ' 5H  SEC  ' 

WRITE  (6,30)  XN(1),  XN(2),  XN(3),  XT1 M ) ,  XT2 ( 1 ) 


INAD  47 
INAD  48 
INAD  49 
INAD  50 
, INAD  51 
INAD  52 
,INAD  53 
INAD  54 
INAD  55 
INAD  56 
INAD  57 
INAD  58 
INAD  59 
INAD  60 
INAD  61 
INAD  62 
INAD  63 
INAD  64 
INAD  65 
INAD  66 
INAD  67 
INAD  68 
INAD  69 
INAD  70 
INAD  71 
INAD  72 
INAD  73 
INAD  74 
INAD  75 
INAD  76 
INAD  77 
INAD  78 
INAD  79 
INAD  80 
INAD  81 
INAD  82 
INAD  83 
INAD  84 
INAD  85 
INAD  86 
INAD  87 
INAD  88 
INAD  89 
INAD  90 
INAD  91 
INAD  92 
INAD  93 
INAD  94 
INAD  95 
INAD  96 
INAD  97 
INAD  98 
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1 

XT3( 1 ) 

,  XT1 

(2), 

XT2{2) , 

XT3(2),  XT1 

(3), 

XT2(3) 

,  XT3(3) 

I NAD  99 

FORMAT 

( 

10X, 

8HXN( 1 ) 

*"  0 

F12.4, 

12H 

IN 

INAD100 

1 

/ 

10X, 

8HXN(2) 

=  ^ 

F12.4, 

12H 

IN 

INAD101 

2 

/ 

lOX, 

8HXN(3) 

“  0 

F12.4, 

12H 

IN 

INAD102 

3 

/ 

lOX, 

8HXT1 ( 1 ) 

=  , 

F12.4, 

12H 

IN 

INAD103 

4 

t 

5X, 

8HXT2( 1 ) 

”■  0 

F12.4, 

12H 

IN 

INAD104 

5 

f 

5X, 

8HXT3( 1 ) 

“*  0 

F12.4, 

12H 

IN 

INAD105 

6 

/ 

10X, 

8HXT1 (2) 

=  ^ 

F12.4, 

12H 

IN 

INAD106 

7 

0 

5X, 

8HXT2(2) 

F12.4, 

12H 

IN 

INAD107 

8 

0 

5X, 

8HXT3(2) 

F12.4, 

12H 

IN 

INAD108 

9 

/ 

10X, 

8HXT1 (3) 

=  , 

F12.4, 

12H 

IN 

INAD109 

1 

0 

5X, 

8HXT2(3) 

= , 

F12.4, 

12H 

IN 

INAD1 10 

2 

0 

5X, 

8HXT3( 3) 

=  , 

F12.4, 

12H 

IN) 

INAD1 1 1 

WRITE 

(6,40)  XA1 ( 1 ) ,  XA2(1 ) , 

XA3 ( 1 ) , 

XA1(2),  XA2(2), 

INADl 12 

1 

XA3{2) 

,  XA1(3), 

XA2 ( 3 ) , 

XA3( 

3),  WC1 

3,  WC23,  WC33,  VW10,  VW20, 

INAD1 13 

2 

VW30, 

ETA1  , 

ETA2,  ETA3 

INADl 14 

FORMAT 

( 

10X, 

SHKAI ( 1 ) 

=  , 

F12.4, 

12H 

IN 

INADl 15 

1 

0 

5X, 

8HXA2 ( 1 ) 

= , 

F12.4, 

12H 

IN 

INADl 16 

2 

0 

5X, 

8HXA3 ( 1 ) 

“  # 

F12.4, 

12H 

IN 

INADl 17 

3 

/ 

10X, 

8HXA1 (2) 

=  , 

F12.4, 

12H 

IN 

INADl 18 

4 

0 

5X, 

8HXA2 ( 2 ) 

”  0 

F12.4, 

12H 

IN 

INADl 19 

5 

0 

5X, 

8HXA3(2) 

=S  , 

F12.4, 

12H 

IN 

INADl 20 

6 

/ 

10X, 

8HXA1 (3) 

F12.4, 

12H 

IN 

INADl 21 

7 

0 

5X, 

8HXA2( 3) 

=  r 

F12.4, 

12H 

IN 

INADl 22 

8 

0 

5X, 

8HXA3(3) 

F12.4, 

12H 

IN 

INAD123 

9 

/ 

10X, 

8HWCU  = 

0 

F12.4, 

12H 

IN 

INADl 24 

1 

0 

5X, 

8HWC23  = 

0 

F12.4, 

1  2H 

IN 

INADl 25 

2 

0 

5X, 

8HWC33  = 

0 

F12.4, 

12H 

IN 

INADl 26 

9 

/ 

10X, 

8HVW10  = 

0 

F12.4, 

12H 

IN 

INADl 27 

9 

0 

5X, 

8HVW20  = 

0 

F12.4, 

12H 

IN 

INADl 28 

9 

0 

5X, 

8HVW30  = 

0 

F12.4, 

12H 

IN 

INADl 29 

3 

/ 

10X, 

8HETA1  = 

0 

F12.3, 

12H 

DEG 

INADl 30 

4 

0 

5X, 

8HETA2  = 

0 

F12.3, 

1  2H 

DEG 

INADl 31 

5 

0 

5X, 

8HETA3  = 

0 

F12.3, 

1  2H 

DEG) 

INADl 32 

WRITE 

(6,50) 

ZETAl,  ZETA2,  ZETA3 ,  MUB1 ,  MUB2 ,  MUB3, 

INADl 33 

1 

KBF1 ,  KBF2, 

KBF3 

,  CBG1,  CBG2,  CBG3 

,  KBG1 

,  KBG2,  KBG3 

INADl 34 

FORMAT  ( 

10X, 

8HZETA1  = 

,  F12.3, 

12H 

DEG 

INADl 35 

1 

0 

5X, 

8HZETA2  = 

,  F12.3, 

12H 

DEG 

INADl 36 

2 

0 

5X, 

8HZETA3  = 

,  F12.3, 

12H 

DEG 

INADl 37 

3 

/ 

10X, 

8HMUB1  = 

,  F12.5, 

1  2X 

INADl 38 

4 

0 

5X, 

8HMUB2  = 

,  F12.5, 

1  2X 

INADl 39 

5 

0 

5X, 

8HMUB3  = 

,  F12.5, 

1  2X 

INAD140 

6 

/ 

10X, 

8HKBF1  = 

,  F12.2, 

1  2H 

LB/IN 

INADl 41 

7 

0 

5X, 

8HKBF2  = 

,  F12.2, 

1  2H 

LB/IN 

INADl 42 

8 

0 

5X, 

8HKBF3  = 

,  F12.2, 

12H 

LB/ IN 

INADl 43 

9 

/ 

10X, 

8HCBG1  = 

,  F12.3, 

12H 

LB  SEC/ IN 

INADl 44 

1 

0 

5X, 

8HCBG2  = 

,  F12.3, 

12H 

LB  SEC/ IN 

INADl 45 

2 

0 

5X, 

8HCBG3  = 

,  F12.3, 

12H 

LB  SEC/ IN 

INADl 46 

3 

/ 

10X, 

8HKBG1  = 

,  F12.3, 

12H 

LB/ IN 

INADl 47 

4 

0 

5X, 

8HKBG2  = 

,  F12.3, 

1  2H 

LB/IN 

INAD148 

5 

t 

5X, 

8HKBG3  = 

,  F12.3, 

1  2H 

LB/IN) 

INAD149 

WRITE 

(6,60)  VOLH01,  VOLH02, 

VOLH03,  AH1 ,  AH2,  AH3 , 

INADl 50 

70 
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60 


70 


80 


1 

AA1 ,  AA2 

r 

AA3, 

A01 ,  A02, 

A03 ,  CD1 ,  CD2 . 

CD3 

FORMAT  ( 

10X, 

8HVOLH01 

9 

F12.5,  12H 

IN3 

1 

f 

5X, 

8HVOLH02 

F12.5,  12H 

IN3 

2 

r 

5X, 

8HVOLH03 

=  , 

F12.5,  12H 

IN3 

3 

/ 

10X, 

8HAH1 

9 

F12.5,  12H 

IN2 

4 

r 

5X, 

8HAH2 

= 

9 

F12.5,  12H 

IN2 

5 

t 

5X, 

8  HAH  3 

9 

F12.5,  12H 

IN2 

6 

/ 

10X, 

8HAA1 

= 

9 

F12.5,  12H 

IN2 

7 

r 

5X, 

8HAA2 

9 

F12.5,  12H 

IN2 

8 

t 

5X, 

8HAA3 

9 

F12.5,  12H 

1N2 

9 

/ 

10X, 

8HA01 

9 

F12.5,  12H 

IN2 

1 

f 

5X, 

8HA02 

= 

9 

F12.5,  12H 

IN2 

2 

9 

5X, 

8HA03 

= 

9 

F12.5,  12H 

IN2 

3 

/ 

10X, 

8HCD1 

= 

# 

F12.5,  12X 

4 

9 

5X, 

8HCD2 

= 

9 

F12.5,  12X 

5 

9 

5X, 

8HCD3 

= 

9 

F12.5,  12X) 

WRITE 

(6,70) 

VOLS01,  VOLS02, 

VOLS03, 

AHS 

1 

AHS3, 

ANSE1 ,  ANSE2,  ANSE3,  ANSC1 ,  ANSC2 

.  ANSC3 .  CDS1  . 

2 

CDS  3, 

RW1  , 

RW2, 

RW3 

FORMAT 

( 

10X, 

8HVOLS01  =,  F12.5,  1 2H 

IN3 

1 

9 

5X, 

8HVOLS02  =,  F12.5,  1 2H 

IN3 

2 

9 

5X, 

8HVOLS0  3  =,  F12.5,  1 2H 

IN3 

3 

/ 

10X, 

8HAHS1  =  ,  F12.5,  1 2H 

IN2 

4 

9 

5X, 

8HAHS2  =  ,  F12.5,  12H 

IN2 

5 

9 

5X, 

8HAHS3  =  ,  F12.5,  1 2H 

IN2 

6 

/ 

10X, 

8HANSE1  =  ,  F12.7,  1 2H 

IN2 

7 

9 

5X, 

8HANSE2  =  ,  F12.7,  1 2H 

IN2 

8 

9 

5X, 

8HANSE3  =  ,  FI  2. 7,  1 2H 

IN2 

9 

/ 

10X, 

8HANSC1  =  ,  FI  2. 7,  1 2H 

IN2 

1 

9 

5X, 

8HANSC2  =  ,  FI  2. 7,  1 2H 

IN2 

2 

9 

5X, 

8HANSC3  =  ,  FI  2. 7,  1 2H 

IN2 

3 

/ 

10X, 

8HCDS1  =  ,  F12.5,  12X 

4 

9 

5X, 

8HCDS2  =  ,  F12.5,  12X 

5 

9 

5X, 

8HCDS3  =  ,  F12.5,  1 2X 

6 

/ 

10X, 

8HRW1  =  ,  F12.3,  12H 

IN 

7 

9 

5X, 

8HRW2  =  ,  F12.3,  12H 

IN 

8 

9 

5X, 

8HRW3  =  ,  F12.3,  12H 

IN) 

WRITE 

(6,80)  APIAVG,  AP2AVG, 

AP3AVG,  MUR1 . 

1 

MUR3, 

MW1  , 

MW2  , 

MW3,  CCOEF1 ,  CCOEF2,  CCOEF3 

FORMAT 

( 

10X, 

8HAP1AVG  =,  FI  2. 4,  1  2H 

IN2 

1 

r 

5X, 

8HAP2AVG  =,  FI  2.4,  1 2H 

IN2 

2 

9 

5X, 

8HAP3AVG  =,  FI  2. 4,  1  2H 

IN2 

3 

/ 

10X, 

8HMUR1  =  ,  F12.4,  12X 

4 

r 

5X, 

eHMUR2  =  ,  F12.4,  1 2X 

5 

9 

5X, 

8HMUR3  =  ,  F12.4,  12X 

6 

/ 

10X, 

8HMW1  =  ,  F12.4,  12H 

LB 

SEC2/IN 

7 

9 

5X, 

8HMW2  =  ,  F12.4,  1 2H 

LB 

SEC2/IN 

8 

f 

5X, 

8HMW3  =  ,  F12.4,  12H 

LB 

SEC2/IN 

9 

/ 

10X, 

8HCCOEF1  =,  FI  2.4,  1 2X 

1 

f 

5X, 

8HCCOEF2  =,  FI  2. 4,  12X 

- 

/ 

3X, 

8HCCOEF3  =,  Fi2.4,  12X) 

WRITE 

(6,90)  MV'ISl,  MV1S2,  MV1S3,  MV2S2,  MV 

AHS2, 

CDS2, 


MUR2, 


INAD151 

INAD1 52 

INAD1 53 

INAD154 

INAD1 55 

INAD1 56 

INAD1 57 

INAD158 

INAD1 59 

INAD1 60 

INAD161 

INAD162 

INAD163 

INAD164 

INAD165 

INAD166 

INAD167 

INAD168 

INAD169 

INAD170 

INAD1 71 

I NADI  7  2 

INAD1 73 

INAD174 

INAD175 

INADWO 

INAD177 

INAD178 

INAD179 

INAD180 

1NAD181 

INAD182 

INAD183 

INAD184 

INAD185 

INAD186 

INAD187 

INAD188 

INAD189 

INAD190 

INAD191 

INAD192 

INAD193 

INAD1 94 

INAD1 95 

INAD1 96 

INAD197 

INAD198 

INAD1 99 

INAD200 

INAD201 

INAD202 
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MV3S1 , 
FORMAT 


MV3S2,  MV3S3 


M02S3, 

FORMAT 


10X, 
,  5X, 

,  5X, 

/  47X, 
,  5X, 

/  10X, 
,  5X, 

,  5X, 

WRITE 


M03S2,  M03S3 


8HMV1S1 

8HMV1S2 

8HMV1S3 

8HMV2S2 

8HMV2S3 

8HMV3S1 

8HMV3S2 

8HMV3S3 

(6,100) 


= 

F12.6, 

12H 

LB 

SEC2/IN 

F12.6, 

12H 

LB 

SEC2/IN 

= 

9 

F12.6, 

12H 

LB 

SEC2/IN 

= 

F12.6, 

12H 

LB 

SEC2/IN 

s 

F12.6, 

12H 

LB 

SEC2/IN 

= 

F12.6, 

12H 

LB 

SEC2/IN 

= 

F12.6, 

12H 

LB 

SEC2/IN 

F12.6, 

12H 

LB 

SEC2/IN) 

M01S2,  M01S3,  M02S1,  M02S2, 


ZQG1 (1 ) , 
FORMAT  ( 


47X, 
,  5X, 

/  10X, 
,  5X, 

,  5X, 

/  47X, 
,  5X, 

WRITE 


8HM01S2 

8HM01S3 

8HM02S1 

8HM02S2 

8HM02S3 

8HM03S2 

8HM03S3 

(6,110) 


F12.5, 

F12.5, 

F12.5, 

F12.5, 

F12.5, 

F12.5, 

F12.5, 

I  ,  MOW2 , 


Lb  SEC2 
LB  SEC2 
LB  SEC2 
LB  SEC 2 
LB  SEC2 
LB  SEC2 
LB  SEC2) 


ZQG2(1),  ZQG3(1 

). 

ZQG1 (2) 

,  ZQG2(2) 

#  ‘ 

ZQG3( 

10X, 

8HMOW1  = 

F12.4, 

12H 

LB 

IN 

SEC2 

t 

5X, 

8HMOW2  = 

F12.4, 

12H 

LB 

IN 

SEC2 

t 

5X, 

8HMOW3  = 

F12.4, 

12H 

LB 

IN 

SEC  2 

/ 

lOX, 

8HZQG1 1  1 

F12.4, 

12X 

f 

5X, 

8HZQG2 1 1 

= , 

F12.4, 

12X 

t 

5X, 

8HZQG31 1 

F12.4, 

12X 

/ 

10X, 

8HZQG122 

a  , 

F12.4, 

12X 

t 

5X, 

8HZQG222 

a  , 

F12.4, 

12X 

t 

5X, 

8HZQG322 

t 

F12.4, 

12X) 

LHV,  LLP, 
FORMAT  ( 


NPAGE  *  NPAGE  +  1 
CALL  PAGEHD 
RUNMXF  =  RUNMAX  /  12.0 
WRITE  (6,120)  KBULK,  DENOIL, 
LHP,  PHIHKO,  KBAR,  DBAR,  BC, 
10X,  8HKBULK  =  ,  FI  2. 2.  1 2H 


XH(1),  XH(2),  XH(3) 
MUC,  VS 


1 

9 

/ 

5X, 

8HDENOIL  =, 

F12.8, 

12H 

f  A  ft. 

LB  SEC2/IN4 

2 

10X, 

8HXH(1)  =  , 

F12.4, 

12H 

IN 

3 

/ 

10X, 

8HXH(2)  =  , 

F12.4, 

12H 

IN 

4 

/ 

10X, 

8HXH(3)  =  , 

F12.4, 

12H 

IN 

5 

/ 

10X, 

8HLHV  = 

F12,4, 

12H 

IN 

6 

t 

5X, 

8HLLP  = 

F12.4, 

12H 

IN 

7 

1 

5X, 

8HLHP  = 

F12.4, 

12H 

IN 

8 

/ 

10X, 

8HPH1HK0  =, 

F12.3, 

12H 

DEG 

9 

9 

5X, 

8HKBAR  =  , 

F12.2, 

12H 

IN 

1 

/ 

5X, 

8HDBAR  =  , 

F12.2, 

12H 

IN 

2 

10X, 

8HBC  = 

F12.2, 

12H 

IN 

3 

9 

5X, 

8HMUC  = 

F12.2, 

12X 

4 

9 

5X, 

8HVS  = 

F12.3, 

12H 

IN) 

1 

WRITE  (6,130)  VHPTC,  RUNMXF, 
XTH(3),  SIGT,  THRUST 

XTH(1),  XTH( 

FORMAT  ( 

10X, 

8HVHPTC  =  , 

F12.3, 

12H 

IN 

1 

t 

5X, 

8HRUNMXF  =, 

F12.2, 

12H 

FT 

INAD203 

INAD204 

INAD205 

INAD206 

INAD207 

INAD208 

INAD209 

INAD210 

INAD21 1 

INAD212 

INAD213 

INAD214 

INAD215 

INAD216 

INAD217 

INAD218 

INAD219 

INAD220 

INAD221 

INAD222 

INAD223 

:NAD224 

INAD225 

INAD226 

INAD227 

1NAD228 

1NAD229 

INAD230 

INAD23 

INAD232 

INAD233 

INAD234 

INAD235 

INAD236 

INAD237 

INAD238 

INAD239 

INAD240 

INAD241 

INAD242 

INAD243 

INAD244 

INAD245 

INAD246 

INAD247 

INAD248 

INAD249 

INAD250 

INAD251 

INAD252 

INAD253 

INAD254 
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2 

/  lOX, 

8HXTH(1)  = 

,  F12.3,  12H 

IN 

3 

/  10X, 

8HXTH(2)  = 

,  F12.3,  12H 

IN 

4 

/  10X, 

8HXTH(3)  = 

,  F12.3,  12H 

IN 

5 

/  10X, 

8HSIGT  = 

,  F12.4,  12H 

DEG 

6 

,  5X, 

8HTHRUST  = 

,  F12.1,  12H 

LB) 

WEIGHT  =  MV1V1  * 

386.09 

WRITE 

(6,140)  WEIGHT,  MV1V1 , 

M0101,  M0102, 

1 

M0201 ,  M0202,  M0203 ,  M0301 

,  M0302,  M0303 

140 

FORMAT  ( 

10X, 

8HWEIGHT  = 

,  F12.2,  12H 

LB 

1 

,  5X, 

8HMV1V1  = 

,  F12.4,  12H 

LB 

SEC2/IN 

2 

/  10X, 

8HM0101  = 

,  F12.2,  12H 

LB 

IN  SEC2 

3 

,  5X, 

8HM0102  = 

,  F12,2,  12H 

LB 

IN  SEC2 

4 

,  5X, 

8HM0103  = 

,  F12.2,  12H 

LB 

IN  SEC2 

5 

/  10X, 

8HM0201  = 

,  F12.2,  12H 

LB 

IN  SEC2 

6 

,  5X, 

8HM0202  = 

,  F12.2,  12H 

LB 

IN  SEC2 

7 

,  5X, 

8HM0203  = 

,  F12.2,  12H 

LB 

IN  SEC2 

8 

/  10X, 

8HM0301  = 

,  F12.2,  12H 

LB 

IN  SEC2 

9 

,  5X, 

8HM0302  = 

,  F12.2,  12H 

LB 

IN  SEC2 

1 

,  5X, 

8HM0303  = 

,  F12.2,  12H 

LB 

IN  SEC2) 

WRITE 

(6,150)  XP 

( 1 ) ,  XP(2) ,  XP(3) 

,  VWIND, 

1 

S,  CBAR, 

B ,  DELTA 

1  50 

FORMAT  ( 

10X, 

8HXP(1)  = 

,  F12.3,  12H 

IN 

1 

,  5X, 

8HXP(2)  = 

,  F12.3,  12H 

IN 

2 

,  5X, 

8HXP(3)  = 

,  F12.3,  12H 

IN 

3 

/  10X, 

8HVWIND  = 

,  F12.2,  12H 

IN/SEC 

4 

,  5X, 

8HRHO  = 

,  E12.5,  12H 

LB  SEC2/IN4 

5 

/  10X, 

8HS  = 

,  F12.4,  12H 

IN2 

6 

,  5X, 

8HCBAR  = 

,  F12.4,  12H 

IN 

7 

,  5X, 

8HB  = 

,  F12.4,  12H 

IN 

8 

/  10X, 

8HDELTA  = 

,  F12.2,  12H 

DEG) 

WRITE 

(6,160)  CXAL,  CZAL,  CYBT,  CXDL,  CZDL 

1 

CLBT,  CNBT,  CMDL ,  CXO ,  CZO 

,  CMO 

160 

FORMAT  ( 

10X, 

8HCXAL  = 

,  F12.4,  12H 

1/DEG 

1 

,  5X, 

8HCZAL  = 

,  F12.4,  12H 

1/DEG 

2 

,  5X, 

8HCYBT  = 

,  F12.4,  12H 

1/DEG 

3 

/  10X, 

8HCXDL  = 

,  F12.4,  12H 

1/DEG 

4 

,  5X, 

8HCZDL  = 

,  F12.4,  12H 

1/DEG 

5 

,  5X. 

8HCMAL  = 

,  F12.4,  12H 

1/DEG 

6 

/  10X, 

8HCLBT  = 

,  F12.4,  12H 

1/DEG 

7 

,  5X, 

8HCNBT  = 

,  F12.4,  12h 

1/DEG 

8 

,  5X, 

8HCMDL  = 

,  F12.4,  12H 

1/DEG 

9 

/  10X, 

8HCX0  = 

,  F12.4,  12X 

1 

,  5X, 

8HCZ0  = 

,  F12.4,  12X 

2 

,  5X, 

8HCM0  = 

,  F12.4,  12X) 

WRITE 

(6,162)  CIQA(I),  CIQOd 

),  CIQA(2),  C 

1 

CIQA(3)  , 

CIQ0(  3 

),  CIQA(4), 

CIQ0(4),  CIQA(5) 

,  CIQ0(5) 

1 

CIQA(6) , 

CIQ0(6) ,  CIQA(7 ) , 

CIQ0(7),  CIQA(8) 

,  CIQ0(8) 

162 

format  ( 

10X, 

8HCIQA1  = 

,  F12.8,  12H 

1/DEG 

1 

,  5X, 

8HCIQ01  = 

,  F12.8,  12X 

2 

/  10X, 

6HCIQA2  = 

,  F12.8,  12H 

1  /DEG 

3 

,  5  A  , 

8HCIQ02  = 

,  F12.8,  12X 

4 

/  10X, 

8HCIQA3  = 

,  F12.8,  12H 

1/DEG 

M0103, 


RHO, 


CMAL, 


INAD255 

INAD256 

INAD257 

INAD258 

INAD259 

INAD260 

INAD261 

INAD262 

INAD263 

INAD264 

INAD265 

INAD266 

INAD267 

INAD268 

INAD269 

INAD270 

INAD271 

INAD272 

INAD273 

INAD274 

INAD275 

INAD276 

INAD277 

INAD278 

INAD279 

INAD280 

INAD281 

INAD282 

INAD283 

INAD284 

INAD285 

INAD286 

INAD287 

INAD288 

INAD289 

INAD290 

INAD291 

INAD292 

INAD293 

INAD294 

INAD295 

INAD296 

INAD297 

INAD298 

INAD299 

I NADS 00 

INAD30 1 

INAD302 

INAD303 

INAD304 

INAD305 

INAD306 
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5 

5X, 

8HCIQ03 

= 

9 

F12.8,  12X 

INAD307 

6 

/ 

10X, 

8HCIQA4 

= 

9 

F12.8,  12H 

1/DEG 

INAD308 

7 

r 

5X, 

8HCIQ04 

= 

9 

F12.8,  12X 

INAD309 

8 

/ 

10X, 

8HCIQA5 

= 

9 

F12.8,  12H 

1/DEG 

INAD310 

9 

t 

5X, 

8HCIQ05 

= 

f 

F12.8,  12X 

INAD31 1 

1 

/ 

10X, 

8HCIQA6 

= 

9 

F12-8,  12H 

1/DEG 

INAD312 

2 

5X, 

8HCIQ06 

= 

9 

F12.8,  12X 

INAD31 3 

3 

/ 

10X, 

8HCIQA7 

= 

9 

F12.8,  12H 

1/DEG 

INAD314 

4 

t 

5X. 

8HCIQ07 

= 

9 

F12.8,  12X 

INAD315 

5 

/ 

10X, 

8HCIQA8 

= 

9 

F12.8,  12H 

1/DEG 

INAD316 

6 

t 

5X, 

8HCIQ08 

= 

9 

F12.8,  12X) 

INAD317 

WRITE 

(6,164) 

ALFREF,  DELREF 

INAD318 

164 

FORMAT 

( 

10X, 

8HALFREF  = 

9 

FI  2. 4,  12H 

DEG 

INAD319 

1 

5X, 

8HDELREF  = 

9 

F12.4,  12H 

DEG) 

INAD320 

WRITE 

(6,170) 

MQB11,  ZQBII,  KQB11, 

MQB22,  ZQB22, 

INAD321 

1 

KQB22, 

MQB33,  ZQB33,  KQB33 

9 

MQB44,  ZQB44, 

KQB44 

INAD322 

170 

FORMAT 

( 

10X, 

8HMQB1 1 

9 

FI  2. 4,  12H  LB 

SEC2/IN 

INAD323 

1 

9 

5X, 

8HZQB1 1 

= 

9 

F12.3,  12H 

INAD324 

2 

t 

5X, 

8HKQB1 1 

= 

9 

F12,2,  12H 

LB/IN 

INAD325 

3 

/ 

10X, 

8HMQB22 

= 

9 

FI  2. 4,  12H  LB 

SEC2/IN 

INAD326 

4 

r 

5X, 

8HZQB22 

= 

9 

F12.3,  12X 

INAD327 

5 

t 

5X, 

8HKQa22 

9 

F12.2,  12H 

LB/ IN 

INAD328 

6 

/ 

10X, 

8HMQB33 

9 

FI  2. 4,  12H  LB 

SEC2/IN 

INAD329 

7 

t 

5X, 

8HZQB33 

9 

F12.3,  12X 

INAD330 

8 

i 

5X, 

8HKQB33 

= 

9 

F12.2,  12H 

LB/IN 

INAD331 

9 

/ 

10X, 

SHMQB44 

S 

9 

F12.4,  12H  LB 

SEC2/IN 

INAD332 

1 

9 

5X, 

8II2QB44 

= 

9 

F12.3,  12X 

INAD333 

2 

9 

5X, 

8HKQB44 

9 

F12.2,  12H 

LB/IN) 

INAD334 

WRITE 

(6,180) 

MQB55,  ZQB55,  KQB55, 

MQB66,  ZQB66, 

INAD335 

1 

KQB66, 

MQB77,  ZQB77,  KQB77, 

MQB88,  ZQB88, 

K(3B88 

INAD336 

180 

FORMAT 

( 

10X, 

8HMQB55 

= 

9 

F12.4,  12H  LB 

SEC2/IN 

INAD337 

1 

9 

5X, 

8HZQB55 

= 

9 

F12.3,  12H 

INAD338 

2 

9 

5X, 

8HKQB55 

= 

,F12.2,  12H 

LB/IN 

INAD339 

3 

/  10X 

8HMQB66  = 

,F12.4,  12H 

LB 

SEC2/IN 

INAD340 

4 

,  5X,  8HZQB66 

= 

,  F12.3,  12X 

INAD341 

5 

,  5X,  8HKQB66 

= 

,  F12.2,  12H 

LB/IN 

INAD342 

6 

/  10X,  8HMQB77 

= 

,  F12.4,  12H 

LB 

SEC2/IN 

INAD343 

7 

,  5X,  8HZQB77 

= 

,  F12.3,  12K 

INAD344 

8 

,  5X,  8HKQB77 

= 

,  F12.2,  12H 

LB/ IN 

INAD345 

9 

/  10X,  8HMQB88 

= 

,  F12.4,  12H 

LB 

SEC2/IN 

INAD346 

1 

,  5X,  8HZQB88 

= 

,  F12.3,  12X 

INAD347 

2 

,  5X,  8HKQB88 

= 

,  F12.2,  12H 

LB/IN) 

INAD348 

WRITE 

(6,190) 

PBH11,  PBH21,  PBH31, 

PBH12,  PBH22, 

INAD349 

1 

PBH32, 

PBH13,  PBH23,  PBH33, 

PBH14,  PBH24, 

PBH34 

INAD350 

190 

FORMAT 

( 

10X, 

8HPBH1 1 

= 

9 

F12.5,  12X 

1NAD351 

1 

9 

5X, 

8HPBH21 

9 

F12.5,  12X 

INAD352 

2 

9 

5X, 

8HPBH31 

9 

F12.5,  12X 

INAD353 

3 

/ 

10X, 

8HPBH12 

= 

9 

F12.5,  12X 

INAD354 

4 

9 

5X, 

8HPBH22 

= 

9 

F12.5,  12X 

INAD355 

5 

9 

5X, 

8HPBH32 

= 

9 

F12.5,  12X 

INAD356 

6 

/ 

10X, 

8HPBH1 3 

= 

f 

F12.5,  12X 

INAD357 

7 

9 

5X, 

8HPBH23 

= 

9 

F12.5,  12X 

INAD358 
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8 

,  5X, 

8HPBH33 

=  ,  F12.5, 

12X 

INAD359 

9 

/  10X, 

8HPBH14 

=  ,  F12.5, 

1  2X 

INAD360 

1 

,  5X, 

8HPBH24 

=  ,  F12.5, 

12X 

INAD361 

2 

,  5X, 

8HPBH34 

=  ,  F12.5, 

12X> 

INAD362 

WRITE 

(6,200) 

PBH15,  PBH25,  PBH35,  PBH16,  PBH26, 

INAD363 

1 

PBH36, 

PBH17,  PBH27,  PBH37,  PBH18, 

PBH28,  PBH38 

INAD364 

FORMAT 

(  10X, 

8HPBH1  5 

=  ,  F12.5, 

12X 

INAD365 

1 

,  5X, 

8HPBH25 

=  ,  F12.5, 

12X 

1NAD366 

2 

,  5X, 

8HPBH35 

=  ,  F12.5, 

12X 

INAD367 

3 

/  10X, 

8HPBH1 6 

=  ,  F12.5, 

12X 

INAD368 

4 

,  5X, 

8HPBH26 

=  ,  F12.5, 

12X 

INAD369 

5 

,  5X, 

8HPBH36 

=  ,  F12.5, 

12X 

INAD370 

6 

/  10X, 

8HPBH1 7 

=  ,  F12.5, 

12X 

INAD371 

7 

,  5X, 

8HPBH27 

=  ,  F12.5, 

12X 

INAD372 

8 

,  5X, 

8HPBH37 

=  ,  F12.5, 

12X 

INAD373 

9 

/  10X, 

8HPBH1 8 

=  ,  F12.5, 

12X 

INAD374 

1 

,  5X, 

6HPBH28 

=  ,  F12.5, 

12X 

INAD375 

T 

,  5X, 

8HPBH38 

=  ,  F12.5, 

12X) 

INAD376 

IF  (NVEVV)  210,  230,  210 

INAD377 

WRITE 

(6,220) 

VA,  VE,  VV, 

PITCH,  ROLL 

INAD378 

FORMAT 

(  //lOX, 

18HINITIAL  CONDITIONS 

INAD379 

1 

//10X, 

8HVA  = 

.  F12.4, 

12H  KT 

INAD380 

2 

/  10X, 

8HVE  = 

,  FI?. 4, 

1 2H  KT 

INAD381 

3 

/  10X, 

8HVV  = 

,  F12.4, 

1 2H  FT/ SEC 

INAD382 

4 

/  10X, 

8HPITCH 

=  ,  F12.4, 

1 2H  DEGREES 

INAD383 

5 

/  10X, 

8HROLL  = 

,  F12.4, 

12H  DEGREES) 

INAD384 

NPAGE 

=  NPAGL 

+  1 

INAD385 

CALL  PAGEHD 

INAD386 

DATA 

XSl  /  2HS1,  2HS1,  2HS1,  2HS1  ,  3H'.5-n  , 

INAD3S7 

1 

2HS1,  2HS1 ,  4HSPR1 ,  2HS1 

,  2HS1,  2HS1 ,  2HS1,  2HS1,  2HS1,  2HS1 , 

INAD368 

2 

2HS1 ,  2HS1 ,  2HS1 

,  2HS1 , 

2HS1,  2HS1, 

2HS1,  2HS1,  2HS1 ,  2HS1  , 

1NAD389 

3 

2HS1,  2HS1,  2HS1 

,  2HS1  , 

2HS1,  2HS1, 

2HS1 ,  2riS1,  2HS1,  2HS1  , 

INAD390 

4 

2HS1,  2HS1,  2HS1 

,  2HS1, 

2HS1,  2HS1, 

2HS1,  2HS1.  2HS1 ,  2HS1, 

INAD391 

5 

2HS1,  2HS1 ,  2HS1 

,  2HS1, 

2HS1  / 

INAD392 

DATA  YS1(1),  YS1(2),  YS1(3),  YS 1 ( 4 ) ,  YS1(5),  YS1(6), 

INAD393 

1 

YS1(7) , 

YSl  (8)  , 

YSl (9)  , 

YSI(IO),  YSKII),  YS1(12),  YS1(13), 

INAD394 

2 

YS1 { 14  ) 

,  YSl ( 1 5  ) 

,  YSl ( 16)  ,  YSl (17)  , 

YSl ( 18 ) ,  YSl ( 1 9) ,  YSl ( 20) , 

INAD395 

3 

YS1 ( 21 ) 

,  YSl (22) 

,  YSl  ( 23 )  ,  YSl ( 24  )  , 

YSl (25) ,  YSl (26) ,  YSl  (27)  , 

INAD396 

4 

YS1 (28) 

,  YSl (29) 

,  YSl ( 30  )  ,  YSl ( 31  )  , 

YSl ( 32)  ,  YSl ( 33  )  ,  YSl ( 34 ) , 

INAD3S7 

5 

YS1 \ 35) 

,  YS1(36) 

,  YSl (37),  YSl (38), 

YSl (39) ,  YSl (40) ,  YSl (41 ) , 

INAD398 

6 

YS1 (42) 

,  YS1(43) 

,  YS1(44 

) ,  YSl (45) , 

YS1(46),  YS1(47),  yS1(48), 

INAD399 

7 

YSl (49) 

,  V  (50) 

,  YSl ( 51  )  ,  YSl ( 52 ) , 

YSl (53) ,  YSl (54) ,  YSl (55)  , 

INAD400 

8 

YSl ( 56  ) 

,  \  (57) 

,  YSl ( 58)  ,  YSl (59) , 

YS1(60)  / 

INAD401 

1 

4HXIA1 , 

4H(  1  )  , 

4H 

4HXIA1 ,  4H(3)  , 

INAD4G2 

1 

4H 

4HXIA1  , 

4HD( 1  )  , 

4H  ,  4HXIA1,  4HD(3),  4H 

INAD403 

2 

4HFG1 ( , 

4H3)  , 

4H 

4HAP1  ,  4H 

,  4H 

INAD404 

3 

4HPA1  , 

4H 

4H  , 

4HMU1  ,  4H 

,  4H 

INAD405 

4 

4HMS1S, 

4H1 

4H 

4HBU1(,  4H1 )  ,  4H 

INAD406 

2 

4HBU1 ( , 

4H2)  , 

4H 

4HBU1(,  4H3 

)  ,  4H 

INAD407 

6 

4HBL1 ( , 

4H1  ) 

4H 

4HBL1(,  4H2)  ,  4H 

INAD408 

7 

4HBL1 ( , 

4H3  ) 

4H 

4HMQG1,  4H(1,1,  4K) 

INAD4C9 

8 

4HMQG1 , 

4H(?,2, 

4H) 

4HKQG1,  4H(1,1,  4H) 

INAD4 1 0 

75 
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9  4HKQG1,  4H(2,2,  4H)  ,  4HPGA1 ,  4H(1,1,  4H)  /  INAD411 

DATAYS1(61),  YS1(62),  YS1(63),  YS1(64),  YR1(65),  INAD412 

1  YS1(66),  YS1{67;,  YS1(68),  YS1{69),  YS1(70),  YS1(71),  YS1(72),  INAD413 

2  YS1(73),  YS1(74),  YS1(75),  YS1(76),  YS1(77),  YS1(78),  YS1(79),  INAD414 

3  YS1(80),  YS1(81),  YS1{82),  YS1(83),  YS1(84),  YS1(85),  YS1(86),  INAD415 

4  YSI(87),  YS1(88),  YS1{89),  YS1(90),  YS1(91),  YS1(92),  YS1(93),  INAD416 

5  YS1(94),  YS1(95),  YS1(96),  YS1(97),  YS1(98),  YS1(99),  YSI ( 1 00 ) , INAD4 1 7 

6  YSIdOl),  YS1{102),  YSHIOO),  YS1(104),  YS1(105),  YS1(106),  INAD418 

7  YS1(107),  YS1(108),  YS1{109),  YSI(IIO),  YSKIII),  YS1{112),  INAD419 

8  YS1(113),  YS1(114),  YSKnS),  YS1(116),  YS1(117),  YS1(118),  INAD420 

9  YSIdig),  YS1(120),  YS1(121),  YS1(122),  YS1(123),  YS1(124)/  INAD421 


1 

4HPGA1 , 

4H(  2  ,  1  , 

4H) 

4HPGA1 

,  4H(3,1, 

4H) 

4HPGA1 , 

4H( 1 , 2 , INAD422 

2 

4H) 

4HPGA1 , 

4H(2, 2  , 

4H) 

,  4HPGA1 , 

4H(3,2, 

4H) 

4HM0G1 , INAD423 

3 

4H 

4H 

4HPBA1  , 

4H( 1 ,  1 

,  4H) 

4HPBA1 , 

4H(2, 1 , 

4H)  ,INAD424 

4 

4HPBA1 , 

4H(  3  ,  1  , 

4H) 

4HPBA1 

,  4H(1,2, 

4H) 

4HPBA1 , 

4H( 2 , 2 , INAD425 

5 

4H) 

4HPBA1 , 

4H( 3, 2  , 

4H) 

,  4HPBA1 , 

4H(1 ,3, 

4K) 

4HPBA1 , INAD426 

6 

4H(2.3, 

4H) 

4HPBA1  , 

4H<3,3 

,  4H) 

4HPBA1 , 

4H(1 ,4 , 

4H)  ,INAD427 

7 

4HPBA1 , 

4H(2,4, 

4H) 

4HPBA1 

,  4H(3,4, 

4H) 

4HPBA1 , 

4H( 1 ,5, INAD428 

8 

4H) 

4HPBA1 , 

4H(2,5, 

4H) 

,  4HPBA1 , 

4H(3,5, 

4H) 

4HPBA1/INAD429 

DATA 

YG1 ( 125) , 

(1 

26  vsin 

27),  YS1(128), 

I NAD4  3  0 

1 

YSI (129) 

,  YSI ( 1 30)  ,  YSI ( 1 31  )  , 

YSI ( 1 32)  , 

YSI ( 1 33) ,  YSI ( 1 34) ,  INAD431 

2 

YS1(135) 

,  YSI ( 1 36)  ,  YSI ( 1 37)  , 

YSI ( 138)  , 

YS1(139),  YS1(140),  INAD432 

3 

YSI ( 141 ) 

,  YSI ( 1 

42) ,  YSI ( 143) , 

YSI ( 144)  , 

YS1(145),  yS1(146),  INAD433 

4 

YSI (147) 

,  YSI ( 148)  ,  YSI ( 149)  , 

YSI ( 150)/ 

INAD434 

1 

4H( 1 ,6, 

4H) 

4HPBA1  , 

4H(2,6,  4H) 

4HPBA1 , 

4H(3,6, 

4H)  ,INAD435 

2  4HPBA1,  4H(1,7,  4H)  ,  4HPBA1 ,  4H(2,7,  4H)  ,  4HPBA1 ,  4H( 3 , 7 , INAD436 

3  4H)  ,  4HPBA1 ,  4H(1,8,  4H)  ,  4KPBA1 ,  4H(2,8,  4H)  ,  4HPBA1 , INAD4 37 

4  4H(3,8,  4H)  /  INAD438 

DATA  XS2  /  2HS2,  2HS2,  2HS2,  2HS2,  2HS2 ,  INAD439 

1  2HS2,  3HVW2,  2HS2 ,  2HS2,  4HSPR2,  2HS2 ,  2HS2,  2HS2,  2HS2 ,  2HS2,  INAD440 

2  2HS2,  2HS2,  2HS2,  2HS2 ,  2HS2,  2HS2 ,  2HS2,  2HS2 ,  2HS2,  2HS2 ,  INAD441 

3  2HS2,  2HS2,  2HS2,  2HS2 ,  2HS2,  2HS2,  2HS2,  2HS2,  2HS2 ,  2HS2,  INAD442 

4  2HS2,  2HS2,  2HS2 ,  2HS2,  2HS2 ,  2HS2 ,  2HS2,  2HS2 ,  2HS2 ,  2HS2,  INAD443 

5  2HS2,  2HS2,  2HS2,  2HS2 ,  2HS2,  2HS2 ,  2HS1 ,  2HS1 ,  2HS2 ,  2HS2 ,  INAD444 

6  2HS3,  2HS3  /  INAD445 

DATAYS2(1),  YS2(2),  YS2(3),  YS2(4),  YS2(5),  YS2(6),  INAD446 

1  YS2(7),  YS2(8),  YS2(9),  YS2(10),  YS2(11),  YS2(12),  YS2(13),  INAD447 

2  YS2(14),  YS2(15),  YS2(16),  YS2(17),  YS2{18),  YS2(19),  YS2(20),  INAD448 

3  YS2(21),  YS2(22),  YS2(23),  YS2(24),  yS2{25),  iS2(26),  YS2(27),  INAD449 

4  YS2(28),  YS2(29),  YS2(30),  YS2(31),  yS2{32),  YS2(33),  YS2(34),  INAD450 

5  YS2(35),  YS2{36),  YS2(37).  YS2(38),  YS2(39),  YS2(40),  YS2(41),  INAD451 

6  YS2(42),  YS2(43),  YS2(44),  YS2(45),  yS2(46),  YS2(47),  YS2(48),  INAD452 

7  YS2(49),  YS2(50),  YS2(51),  YS2{52),  YS2(53),  YS2(54),  YS2(55),  INAD453 


8 

YS2(56),  YS2(57) 

,  YS2(58),  YS2(59),  YS2(60)  / 

INAD454 

1 

4HXIA2,  4H(1)  , 

4H 

4HXIA2, 

4H(2)  ,  4H 

4HXIA2 , 

4H(3)  ,INAD455 

2 

4H  ,  4HXIA2, 

4HD( 1 ) , 

4H 

4HXIA2,  4HD(2), 

4H 

4HXIA2 , INAD456 

3 

4HD(3),  4H 

4HFG2( , 

4H3  ) 

4H  ,  4HAP2  , 

4H 

4H  ,INAD457 

4 

4HPA2  ,  4H 

4H 

4HMU2  , 

4H  ,  4H 

4HMS2S, 

'1H2  ,INAD4  58 

5 

4H  ,  4HBU2(  , 

4H1  )  , 

4H 

4HBU2(,  4H2)  , 

4H 

4HBU2 ( , INAD459 

6 

4H3)  ,  4H 

4HBL2( , 

4H1  ) 

4H  ,  4HBL2(, 

4H2)  , 

4H  ,INAD460 

7 

4HBL2(,  4H3) 

4H 

4HMQG2 , 

4H( 1 , 1 ,  4H) 

4HMQG2 , 

4H( 2 , 2 , INAD461 

8 

4H)  ,  4HKQG2, 

4H(  1  ,  1  , 

4H)  / 

INAD462 

76 
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DATAYS2(61),  YS2(62),  YS2(63),  YS2(64),  YS2(65), 


YS2(66),  YS2(67),  YS2(68),  YS2(69),  YS 
YS2(73),  YS2(74),  YS2(75),  YS2(76),  YS 
YS2(80),  YS2(81),  YS2(82),  YS2(83),  YS 
YS2(87),  YS2(88),  YS2{89),  YS2(90),  YS 
YS2(94),  YS2(95),  YS2(96),  YS2(97),  YS 
YS2(101),  YS2(102),  YS2(103),  YS2(104) 
YS2(107),  YS2(108),  YS2(109),  YS2(110) 
YS2(113),  YS2{n4),  YS2(n5),  YS2(116) 
YS2(119),  YS2(120),  YS2(121),  YS2(122) 


(63),  YS2(64),  YS2(65),  INAD463 
YS2(70),  YS2(71),  YS2(72),  INAD464 
YS2(77),  YS2(78),  YS2{79),  INAD465 
YS2{84),  YS2(85),  YS2(86),  INAD466 
YS2(91),  YS2(92),  YS2{93),  INAD467 
YS2(98),  YS2(99),  YS2 ( 1 00 ) , INAD468 
4),  YS2(105),  YS2{106),  INAD469 
0),  YS2(111),  YS2(112),  INAD470 
6),  YS2(117),  YS2(118),  INAD471 
2),  YS2(123),  YS2{124)/  INAD472 


1 

4HKQG2 , 

4H(2,2, 

4H) 

4HPGA2, 

4H( 1 , 1 , 

4H) 

4HPGA2, 

4H( 2 , 1 , INAD473 

2 

4H) 

4HPGA2 , 

4H(3, 1 , 

4H) 

4HPGA2, 

4H( 1 ,2, 

4H) 

4HPGA2 , INAD474 

3 

4H(2 , 2 , 

4H) 

4HPGA2 , 

4H(3,2, 

4H) 

4HPBA2 , 

4H( 1 , 1 , 

4H)  ,INAD475 

4 

4HPBA2 , 

4H{ 2 , 1 , 

4H) 

4HPBA2 , 

4H( 3, 1 , 

4H) 

4HPBA2 , 

4H( 1 ,2, INAD476 

5 

4H) 

4HPBA2 , 

4H( 2 , 2 , 

4H) 

4HPBA2 , 

4H(3,2, 

4H) 

4HPBA2 , INAD477 

6 

4H(1 ,3, 

4H) 

4HPBA2 , 

4H( 2, 3, 

4H) 

4HPBA2, 

4H(3 , 3 , 

4H)  ,INAD478 

7 

4HPBA2 , 

4H( 1 ,4, 

4H) 

4HPBA2 , 

4H(2,4, 

4H) 

4HPBA2 , 

4H( 3 , 4 , INAD479 

8 

4H) 

4HPBA2 , 

4H( 1 , 5, 

4H) 

4HPBA2 , 

4H(2, 5, 

4H) 

4HPBA2/INAD480 

YS2( 1 29 ) 
YS2( I  35) 
YS2(  U1  ) 
YS2(147) 
YS2(153) 
4H(3,5, 
4HPBA2, 
4H) 

4H(2,8, 

YS2( 1 58  ) 
YS2(164) 
YS2{1 70) 
4HMS1Q, 
4H 

4HG(2) , 


DATA  YS2( 125) 
,  YS2( 1 30) ,  YS2 
,  YS2{136),  YS2 
,  YS2{1421,  YS2 
,  YS2 (148),  YS2 
/ 

4H)  ,  4HPBA2, 

4H(3,6,  4H1 
4HPBA2,  4H{3,7, 
4H)  ,  4HPBA2, 

DATA  YS2 ( 1 54  ) 


25),  YS2(126),  YS2(127),  YS2{128), 
YS2(131),  YS2(132),  YS2{133),  YS2(134), 
YS2(1371,  YS2(138),  YS2(139),  YS2(140), 
YS2(143  ,  YS2(144),  YS2(145),  YS2(146), 
YS2(149),  YS2(150),  YS2(151),  YS2(152), 


4H( 1 ,6, 
4HPbA2 , 
4H) 

4H(3,8, 


4H)  ,  4HPBA2,  4H(2,6,  4H)  , INAD487 
4H(1,7,  4H)  ,  4HPBA2,  4H( 2 , 7 , INAD488 
4HPBA2,  4H(1,8,  4H)  ,  4HPBA2 , INAD489 


INAD481 

INAD482 

TNAD483 

INAD484 

INAD485 

INAD486 

INAD487 


4H)  ,  4HPBA2,  4H(3,8,  4H)  / 

DATA  YS2( 154) ,  YS2(155),  YS2(156),  yS2(157), 

,  YS2(159),  YSOneO),  YS2(1611,  YS2(162),  YS2(163), 

,  YS2(165),  YS2(166),  YS2(167),  YS2(168),  YS2(169), 

,  YS2( 171 )  / 

4HG(1),  4H  ,  4HMS1Q,  4HG(2),  4H  ,  4HMS2Q,  4HG(1 
4HMS2Q,  4HG(2),  4H  ,  4HMS3Q,  4HG{1),  4H  ,  4HMS3 
4h 

NTCNT  0 

I F  ( NTW1 )  240 ,  360 ,  240 
DO  3  5  0  T  =  1  ,  N'TW  1 
IF  (NTB1 ( I ) )  250 ,  350 ,  250 


INAD490 

INAD491 

INAD4S2 

INAD493 

INAD494 

INAD495 


FORMAT  ( 
RUNNON  ) 


IF  (NTB1 ( I ) )  250 ,  350 , 
NT  1  =  NTB 1(1) 

NT1P1  =  NT1  ^  1 
NF  =  NTi  *  2 
IF  (I  -  110)  280,  260, 
WRITE  (6,270) 

/  10X,  53HSINGLE  TABLE 

GO  TO  320 

IF  (I  -  501  290,  290 . 


FH1NON 


IF  (I 
J  =  3 
K  J 

L,  -  J 

WRITE 


(6,300) 


Yi>1  (  J  )  ,  YS1  (K)  ,  YS^  (  L) 


4HMS3Q, INAD496 
INAD49'' 
INAD498 
INAD499 
INAD500 
INAD501 
I  NADS C 2 
INAD503 
INAD504 
I  NADS 0  5 
I  NADS 0  6 
VSINADSC^ 
INAD508 
INAD5C9 
I  NADS  1 0 
INAD51 ’ 
I  NADS  1 2 
I  NADS  ( 

)  INAD5’4 


m  m 


SOURCE  DECK  LISTING 


FORMAT  {  /  10X,  16HSIN( 
3HVS.,  3X,  A4  ) 

GO  TO  320 
LL  =  I  -  50 
J=3*LL- 
K  =  J  +  1 
L  =  J  +  2 
WRITE  (6,300: 
WRITE  (6,330: 
WRITE  (6,330; 
FORMAT  (8E13.5) 

NTCNT  =  NF  / 


6HS INGLE  TABLE  NO. 


I,  YS2(J),  YS2(K), 
(TABL1 ( J, I ) ,  J  =  1 


YS2(L),  XS2(LL) 
NT1  ) 


(TABL1 (J, I ) ,  J  =  NTIP1 


FORMAT  ( 
1  AND  RUNOUT 


NTCNT  =  NF  /  8  +  3  +  NTCNT 

IF  (NTCNT  -  47)  350,  340,  340 

NPAGE  =  NPAGE  +  1 

CALL  PAGEHD 

NTCNT  =  0 

CONTINUE 

IF  (NTW2)  370,  400,  370 
IF  (NTB21 (1 ) )  380,  400,  380 
NTT1  =  NTB21 ( 1 ) 

NTT2  =  NTB22 ( 1  ) 

NTP  =  NTT1  *  NTT2 
NTT1P1  =  NTT1  +  1 
NNTT12  =  NTT1  +  NTT2 
NT12P1  =  NNTT12  +  1 
NF  =  NNTT 1 2  +  NTP 
WRITE  (6,390) 

f  10X,  18HDOUBLE  TABLE  NO.  1,  ! 

) 

WRITE  (6,330)  (TABL2(J,1),  J 
WRITE  (6,j30)  (TABL2(J,1),  J 
WRITE  (6,330)  (TABL2(J,1),  J 
NSKIP  =  NTSKIP 
NLINE  =  55 
NPRT  =  0 


1 ,  NTT1 
NTT1P1 , 


NNTT 1 2 


NT1 2P1 ,NF) 


P(2000)  , 


RETURN 

END 

SUBROUTINE  FOR  CALCULATING  INITIAL  CONDITIONS  AT  TOUCHDOWN 
SUBROUTINE  INITI 

COMMON  Y(7Q),  DYDX(70),  FIRSTY(70),  P(2000), 
NTEGER(3G0),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  LT1 ,  LT2,  LT3 ,  LH ,  LHV ,  KBG1 ,  KBG2 ,  KBG3, 
KQB11,  KQB22,  KQB33,  KQB44,  KQB55,  KQB66,  KQB77,  XQB88,  KQB 
DIMENSION  XN( 3 ) ,  XT1(3),  XT2 ( 3 ) ,  XT3(3),  XA1(3), 
XA2(3),  XA3(3),  XH(3),  LT1(3),  LT2 ( 3 ) ,  LT3(3),  LH(3),  XIAI(3 
XIA2(3),  XIA3(3),  ALHG1(3,3),  ALHG2 ( 3 , 3 ) ,  ALHG3(3,3), 

GA1{3),  GA2(3),  GA3 ( 3 ) ,  GXIA1(3),  GXIA2(3),  GXIA3(3), 
GAMB(3,3),  GAMG'!(3,3),  GAMG2{3,3),  GAMG3  (  3 , 3  )  ,  GBAG1(3,3), 
GBAG2(3,3),  GBAG3(3,3),  GBGG1(3,3),  GBGG2 ( 3 , 3 ) ,  GBGG3 ( 3 , 3 ) , 
PBH(3,8),  PBA1(3,8),  PBA2(3,8),  PBA3(3,8),  QB(8), 

CIQA(8),  CIQO'e),  KQB(C,8),  A2 ( i 5 , 1 6 ) ,  XI 9',  VB(3i 
DIMENSION  NTB1 (110) 


INAD51 5 
INAD516 
INAD517 
I NADS  18 
INAD51 9 
I NADS 20 
INAD521 
I NADS 2 2 
I NADS 2 3 
I NADS 2 4 
I NADS 2 5 
I NADS 2 6 
I NADS 2 7 
INAD528 
I NADS 2 9 
I NADS 30 
I NADS 31 
I NADS 3 2 
I NADS 3 3 
I NADS 3 4 
I NADS 3 5 
I NADS 3 6 
I NADS 3 7 


I.NAD539 
I NADS 40 
INAD541 
WEIGHTINAD542 
INAD543 
INAD544 
INAD545 
INAD546 
INAD547 
I NADS 4 8 
INAD549 
I NADS 50 
I NADS 51 


INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 
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1 

1 

2 

3 

4 

5 

6 


1 

2 

3 

4 

5 

6 
/ 

8 

9 

1 

1 

2 

3 

4 


EQUIVALENCE  (Y(2),  VB),  (Y(7),  V),  (Y(17),  SD, 

(Y(18),  S2),  (Y{19),  S3),  (Y(55),  QB) 

EQUIVALENCE  (P(3),  XN),  (P(11),  XT1 ) ,  (P(14),  XAl ) , 

(P(17),  WC13),  (P(23),  KBG1 ) ,  (P(26),  AA1 ) ,  (P(42),  WJIO), 
(P(51),  XT2),  (P(54),  XA2),  {P(57),  WC23),  (P(63),  KBG2 ) , 
(P{66),  AA2),  (P(85),  VW20),  (P(91),  XT3),  (P(94),  XA3 ) , 
{P(97),  WC33),  (P(103),  KBG3),  (P(106),  AA3),  (P(125),  VW30), 
(P(131),  XH),  (P(134),  LHV),  (P(136),  PHIHKO), 

(P(164),  VWIND),  (P(165),  RHO) ,  (P{166),  S) 

EQUIVALENCE  (P(209),  CIQA) ,  (P(225),  CIQO) 
EQUIVALENCE  (P{421),  KQB1 1 ) ,  (P{422),  KQB22), 
(P(423),  KQB33),  (P(424),  KQB44),  (P(425),  KQB55), 

(P(426),  KQB66),  (P{427),  KQB77),  (P(428),  KQB88), 

{P(431),  PBHI1),  (P(432),  PBH21 ) ,  (P(433),  PBH31), 

(P(434),  PBH12),  (P(435),  PBH22),  (P(436),  PBH32), 

(P(437),  PBH13),  (P(438),  PBH23),  (P(439),  PBH33), 

(P(440),  PBH14),  (P(441),  PBH24),  (P(442),  PBH34 ) , 

{P{443),  PBH15),  (P(444),  PBK25),  (P(445),  PBH35), 

(P(446),  PBH16),  (P(a47),  PBH26),  {P(448),  PBH36), 

(P(449),  PBH17),  (P(450),  PBH27),  (P{451),  PBH37), 

(P{452),  PBH18),  (P{453),  PBH28 ) ,  (P(454),  PBH38) 

EQUIVALENCE  (P(571),  GAMB),  {P{601),  GAMG1), 
(P(619),  ALHG1),  (P(637),  GBAG1 ) ,  (P(646),  GBGG1 ) , 

(P{701),  GAMG2),  (P{719),  ALHG2),  (P(737),  GBAG2 ) . 

(P(746),  GBGG2),  {P(801),  GAMG3),  (P(819),  ALHG3 ) , 

(P(837),  GBAG3),  (P(846),  GBGG3),  (P(976),  KQB) 

EQUIVALENCE  (NTEGER(15),  NBE),  (NTEGER(56),  NTB1  ) 
CALL  TABSN1 (TABLI ( 1 ,7) ,  0.0,  PA1 ,  NTB1(7)) 

CALL  TABSN1 (TABLI ( 1 , 59) ,  0.0,  PA2 ,  NTB1(59)) 

PA3  =  PA2 

51  =  -((PA1  -  14.7)  *  AA1)  /  KBG1 

52  =  -{(PA2  -  14.7)  *  AA2)  /  KBG2 

53  =  -((PA3  -  14.7)  *  AA3)  /  KBG3 

CALL  TABSN1 (TABLI ( 1 , 1 ) ,  SI,  XIA1(1),  NTB1(1)) 

CALL  TABSN1 (TABLI ( 1 ,2) ,  SI,  XIA1(3),  NTB1(2)) 

XIA1 ( 2 )  =  0 . 

CALL  TABSN1 (TABLI { 1 , 51 ) ,  S2 ,  XIA2(1),  NTB1(51)) 
CALL  TABSN1 (TABLI ( 1 , 52) ,  S2 ,  XIA2(2),  NTB1(52)) 

CALL  TABSN1 (TABLI ( 1 , 53) ,  S2 ,  XIA2(3),  NTB1(53)) 
CALL  TABSN1  (  TABL":  (  1  ,  51  )  ,  S3,  XIA3(1),  NTB1(51)) 
CALL  TABSN1 ( TABLI ( 1 , 52 ) ,  S3,  XIA3(2),  NTB1(52)) 
X!A3(2)  =  -XIA3(2) 

CALL  TABSN1 (TABLI ( 1 , 53) ,  S3,  XIA3(3),  NTB1(53)) 


DO  1 

C  I  =  1  , 

3 

LT1  (  I  ) 

=  XN(  I  ) 

-  XT1 ( I) 

LT2(  I  ) 

=  XN(  I  ) 

-  XT2  (  I  ) 

LT3 (  I  ) 

=  XN(  I  ) 

-  XT3 ( I ) 

LH  (  I  ) 

=  XN  (  I  ) 

-  XH{  I  ) 

GA 1  (  I  ) 

=  0.0 

GA2  (  I  ) 

=  0.0 

GAO  (  I  1 

-  r.  ^ 

DO  1 0  K  =  ’  , 


INIT  16 
INiT  17 
INIT  18 
INIT  19 
INIT  20 
INIT  21 
INIT  22 
INIT  23 
INIT  24 
INIT  25 
INIT  26 
INIT  27 
INIT  28 
INIT  29 
INIT  30 
INIT  31 
INIT  32 
INIT  33 
INIT  34 
INIT  35 
INIT  36 
INIT  37 
INIT  38 
INIT  39 
INIT  40 
INIT  41 
INIT  42 
INIT  43 
INIT  44 
INIT  45 
INIT  46 
INIT  47 
INIT  48 
INIT  49 
INIT  50 
INIT  51 
INIT  52 
INIT  53 
INI"'  54 
INIT  55 
INIT  56 
INIT  57 
INIT  58 
INIT  59 
INIT  60 
INIT  6' 
INIT  62 
INIT  63 
INIT  64 
INIT  65 
INIT  tc: 
INIT  b" 


3 


SOURCE  DECK  LISTING 


1 

1 

1C 

1 


20 


30 


40 


50 


1 


60 

70 


GAK  )  =  GAMGKK.I)  *  (XT1(K)  -  XA1  (K)  + 

INIT  68 

XIA1 ( I ) ) 

+  GA1 ( I ) 

INIT  69 

GA2(I)  =  GAMG2(K,I)  *  (XT2(K)  -  XA2(K)  + 

INIT  70 

XIA2( I) ) 

+  GA2(I) 

INIT  71 

GA3(I)  =  GAMG3(K,I)  *  (XT3(K)  -  XA3(K)  + 

INIT  72 

XIA3( I ) ) 

+  GA3(I) 

INIT  73 

DO  20  I  =  1  ,  3 

INIT  74 

GXIA1 (I )  =  0.0 

INIT  75 

GXIA2(I)  =  0.0 

INIT  76 

GXIA3(I)  =0.0 

INIT  77 

DO  20  J  =  1  ,  3 

INIT  78 

GXIAI(I)  =  GAKJ)  *  ALHG1(I,J)  +  GXIAK  I  ) 

INIT  79 

GXIA2(I)  =  GA2(J)  *  ALHG2(I,J)  +  GXIA2(l) 

INIT  80 

GXIA3{I)  =  GA3(J)  *  ALHG3(I,J)  +  GXIA3(l) 

INIT  81 

V1QB  =  0.0 

INIT  82 

V2QB  =  0.-^ 

INIT  83 

V3QB  =  0.0 

INIT  84 

VHQB  =0.0 

INIT  85 

V1L  =  0.0 

INIT  86 

V2L  =0.0 

INIT  87 

V3L  =  0.0 

INIT  88 

VHL  =0.0 

INIT  89 

VI GA  =  0.0 

INIT  90 

V2GA  =0.0 

INIT  91 

V3GA  =0.0 

INIT  92 

PHIHKR  =  PHIHKO  /  57.29578 

INIT  93 

IF  (NBE)  30,  130,  30 

INIT  94 

VBA1  =  VB(1)  +  GAMB(1,1)  *  VWIND 

INIT  95 

VBA2  =  VB(2)  +  GAMB(1,2)  *  VWIND 

INIT  96 

VBA3  =  VB(3)  +  GAME (1,3)  *  VWIND 

INIT  97 

VA2  =  V3A1  **2  +  VBA2  **2  +  VBA3  **2 

INIT  98 

ALPHA  =  ATAN  (VBA3  /  VBA1 )  *  57.29578 

INIT  99 

KQB( 1,1)  =  KQB1 1 

INIT100 

KQB(2,2)  =  KQB22 

INIT101 

KQB(3,3)  =  KQB33 

INIT102 

KQB(4,4)  =  KQB44 

INIT103 

KQB(5,5)  =  KQB55 

INIT104 

KQB(6,6)  =  KQB66 

INIT105 

KQB(7,7)  =  KQB77 

INIT106 

KQB(8,8)  =  KQB88 

INIT107 

DO  401=1,  NBE 

INIT108 

DO  40  J  =  1 ,  NBE 

INIT109 

A2(I,J)  =  0.0 

INIT1 10 

DO  50  I  =  1 ,  NBE 

INIT1 1 1 

A2( I , I )  =  A2( I , I )  +  KQB( 1,1) 

INIT1 1 2 

NBE1  =  NBE  +  1 

INIT1 1 3 

A2{I,NBE1)  =  -  0.5  *  RHO  *  S  *  VA2  *  (CIQA(l) 

INIT1 14 

*  ALPHA  + 

CIQ0( I ) ) 

INIT1 1 5 

CALL  GAUSS2(NBE,  1,  1.0  E-08,  A2 ,  X,  K3 ) 

INIT1 16 

IF  (K3  -1 )  60,  80,  60 

INIT1 1 7 

WRITE  (6,70)  K3 

INIT1 18 

FORMAT  (//  10X,  25HGAUSS2  ERROR  SIGNAL  K3l  15) 

INIT1 1 9 
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80 

90 


100 


110 


1  20 
1  30 


140 


DO  90  I  =  1  ,  NBE 

INIT120 

QB(I)  =  X(I) 

INIT1 21 

DO  1101=1,  NBE 

INIT122 

DO  100  J  =  1  ,  3 

INIT1 23 

K  =  26  +  I  *  J 

INIT1 24 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  0.0, 

PBA1 (J, I ) , 

NTB1 (K) ) 

INIT1 25 

K  =  77  +  I  *  J 

INIT1 26 

CALL  TABSN1 (TABL1 { 1 ,K) ,  0.0, 

PBA2(J, I ) , 

NTB1 (K) ) 

INIT1 27 

PBA3( 1,1)  =  PBA2( 1,1) 

INIT1 28 

PBA3(2 , I )  =  -  PBA2(2, I ) 

INIT1 29 

PBA3(3, I)  =  PBA2{3,I) 

INIT1 30 

PBH( 1,1)  =  PBH1 1 

INIT1 31 

PBH(2, 1 )  =  PBH21 

INIT1 32 

PBH(3, 1 )  =  PBH31 

INIT1 33 

PBH( 1,2)  =  PBH12 

INIT1 34 

PBH(2,2)  =  PBH22 

INIT1 35 

PBH(3,2)  =  PBH32 

INIT1 36 

PBH{ 1 ,3)  =  PBH1 3 

INIT1 37 

PBH(2,3)  =  PBH23 

INIT1 38 

PBH(3,3)  =  PBH33 

INIT1 39 

PBH( 1,4)  =  PBH14 

INIT1 40 

PBH(2,4)  =  PBH24 

INIT141 

PBH(3,4)  =  PBH34 

INIT142 

PBH( 1,5)  =  PBH1 5 

INIT143 

PBH{2,5)  =  PBH25 

INIT1 44 

PBH{3,5)  =  PBH35 

INIT145 

PBH(1 ,6)  =  PBH16 

INIT146 

PBH(2,6)  =  PBH26 

INIT147 

PBH{3,6)  =  PBH36 

INIT1 48 

PBH( 1,7)  =  PBH1 7 

INIT1 49 

PBH(2,7)  =  PBH27 

INIT1 50 

PBH(3,7)  =  PBH37 

INIT1 51 

PBH( 1,8)  =  PBH18 

INIT1 52 

PBH(2,8)  =  PBH28 

INIT1 53 

PBH(3,8)  =  PBH38 

INIT1 54 

DO  1201=1,3 

INIT1 55 

DO  1 20  J  =  1 ,  NBE 

INIT1 56 

V1QB  =  GBGG1(3,I)  *  PBA1(I,J) 

*  (2B(J)  + 

V1QB 

INIT1 57 

V2QB  =  GBGG2(3,I)  *  PBA2(I,J) 

*  QB(J)  + 

V2QB 

INIT1 58 

V3QB  =  GBGG2(3,I)  *  PBA3(I,J) 

*  QB(J)  + 

V3QB 

INIT1 59 

VHQB  =  GAMB(3,I)  *  PBH(I,J)  * 

QB(J)  +  VHQB 

INIT1 60 

DO  140  I  =  1  ,  3 

INIT1 6 1 

V1L  =  GAMB(3,I)  *  LTKI)  +  V1L 

INIT1 62 

V2L  =  GAMB(3,I)  *  LT2 (I )  +  V2L 

INIT1 63 

V3L  =  GAMB(3,I)  *  LT3(I)  +  V3L 

INIT1 64 

VHL  =  GAMB(3,I)  *  LH(I)  +  VHL 

INIT1 65 

V1GA  =  GBAG1(3,I)  *  GXIA1 ( I ) 

+  V1GA 

INITl 66 

V2GA  =  GBAG2(3,I)  *  GXIA2(I) 

+  V2GA 

INITl 67 

V3GA  =  GBAG3(3,I)  *  GXIA3(I) 

+  V3GA 

I N I T 1  6  6 

VI  =  -  V1L  -  V1GA  -  V1QB  -  WC1 3  -  VW10 

INITl 69 

V2  =  -  V2L  -  V2GA  -  V2QB  -  WC23  -  VW20 

INITl 70 

V3  =  -  V3L  -  V3GA  -  V3QB  -  WC33  -  VW30 

INITl 7 1 
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VH  =  VHL  -  VHQB  + 

GAMB(3,1)  *  LHV  *  SIN(PHIHKR)  -  GAMB(3,3)  *  LHV  *  COS(PHIHKR) 

V  =  VI 

IF  (V  -  V2)  160,  160,  150 

V  =  V2 

IF  (V-  V3)  180,  180,  170 

V  =  V3 

IF  (V  -  VH)  200,  200,  190 

V  =  VH 
RETURN 
END 

SUBROUTINE  FOR  CALCULATING  THE  TRANSFORMATION  MATRICES 
SUBROUTINE  TRANS 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 
NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

DIMENSION  GAMB( 3,3) ,  CGAM(3,3),  GAMG1(3,3), 
ALG1(3,3),  ALHG1(3,3),  GAMW1(3,3),  GBAG1(3,3),  GBGG1(3,3), 
GW1GB(3,3),  GWBAG1(3,3),  GAMG2 ( 3 , 3 ) ,  ALG2(3,3),  ALHG2(3,3), 


THE  TRANSFORMATION  MATRICES 


GAMW2 (3,3),  GBAG2 (3,3),  GBGG2 (3,3),  GW2GB (3,3),  GWBAG2 (3,3), 
GAMG3(3,3),  ALG3 ( 3 , 3 ) ,  ALHG3(3,3),  GAMW3 ( 3 , 3 ) ,  GBAG3(3,3), 
GBGG3(3,3),  GW3GB(3,3),  GWBAG3(3,3) 

EQUIVALENCE  (Y(1),  T) ,  (Y(11),  PHIR) ,  (Y{12),  THETR) 
(Y(13),  PSIR),  (Y(64),  THTG1R) 

EQUIVALENCE  (P(18),  ETA1 ) ,  (P(19),  ZETAl ) , 

(P(58),  ETA2),  (P(59),  ZETA2 ) ,  (P(98),  ETA3),  (P(99),  ZETA3) 
EQUIVALENCE  (P(571),  GAMB) ,  (P(584),  CGAM) 
EQUIVALENCE  (P(601),  GAMG1 ) ,  (P(610),  ALG1 ) , 

(P(619),  ALHG1),  (P(628),  GAMW1  )  ,  (P{637),  GBAG1  )  .. 

(P(646),  GBGG1),  (P(655),  GW1GB),  (P(664),  GWBAG1 ) 

EQUIVALENCE  (P(701),  GAMG2),  (P(710),  ALG2), 

(P(719),  ALHG2),  (P(728),  GAMW2 ) ,  (P(737),  GBAG2), 

(P(746),  GBGG2),  (P(755),  GW2GB),  (P(764),  GWBAG2) 

EQUIVALENCE  (P(801),  GAMG3),  (P(810),  ALG3), 

(P(819),  ALHG3),  (P(828),  GAMW3),  (P(837),  GBAG3), 

(P(846),  GBGG3),  (P(855),  GW3GB) ,  (P(864),  GWBAG3) 

IF  (T)  10,  10,  40 
SINE1  =  SIN(ETA1  /  57.29578) 

COSE1  =  COS(ETA1  /  57.29578) 

SINZ1  =  SIN(ZETA1  /  57.29578) 

COSZ1  =  COS(ZETA1  /  57.29578) 


SINZ1  =  SI 
COSZ1  =  cc 
GAMG1 (1,1) 
GAMG1 (1,2) 
GAMG1 (1,3) 
GAMG1 (2,1) 
GAMG1 (2,2) 
GAMG1 (2,3) 
GAMG1 (3,1) 
GAMG1 (3,2) 
GAMG1 (3,3) 
SINE2  =  SI 
COSE2  =  CC 


1 )  =  COSE1 

2)  =  SINE1  *  SINZ1 

3)  =  SINE1  *  COSZ1 

1)  =  0.0 

2)  =  COSZ1 

3)  =  -  SINZ1 

1 )  =  -  SINE1 

2)  =  COSE1  *  SINZ1 

3)  *  COSE1  *  COSZ1 
SIN(ETA2  /  57.29578) 
COS(ETA2  /  57.29578) 


SINZ1 

COSZ1 


SINZ2  =  SIN(ZETA2  /  57.29578) 


INIT172 
INIT1 73 
INIT1 74 
INIT175 
INIT176 
INIT1 77 
INIT1 78 
INIT179 
INIT180 
INIT181 
INIT182 
TRAN  1 
TRAN  2 
TRAN  3 
TRAN  4 
TRAN  5 
TRAN  6 
TRAN  7 
TRAN  8 
TRAN  9 
TRAN  10 
,TRAN  1 1 
TRAN  12 
TRAN  13 
TRAN  14 
TRAN  15 
TRAN  16 
TRAN  17 
TRAN  18 
TRAN  19 
TRAN  20 
TRAN  21 
TRAN  22 
TRAN  23 
TRAN  24 
TRAN  25 
TRAN  26 
TRAN  27 
TRAN  28 
TRAN  29 
TRAN  30 
TRAN  31 
TRAN  32 
TRAN  33 
TRAN  34 
TRAN  35 
TRAN  36 
TRAN  37 
TRAN  38 
TRAN  39 
TRAN  40 
TRAN  41 
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COSZ2  =  COS(2ETA2  /  57.29578) 

TRAN 

42 

GAMG2( 1,1)  =  COSE2 

TRAN 

43 

GAMG2(1,2)  =  SINE2  *  SIN22 

TRAN 

44 

GAMG2(1,3)  =  SINE2  *  COS22 

TRAN 

45 

GAMG2 (2,1)  =  0.0 

TRAN 

46 

GAMG2(2,2)  =  COSZ2 

TRAN 

47 

GAMG2(2,3)  =  -  SINZ2 

TRAN 

48 

GAMG2(3, 1 )  =  -  SINE2 

TRAN 

49 

GAMG2(3,2)  =  COSE2  *  SIN22 

TRAN 

50 

GAMG2(3,3)  =  COSE2  *  COS22 

TRAN 

51 

SINE3  =  SIN(ETA3  /  57.29578) 

TRAN 

52 

COSE3  =  COS(ETA3  /  57.29578) 

TRAN 

53 

SINZ3  =  SIN(ZETA3  /  57.29578) 

TRAN 

54 

COSZ3  =  COS(ZETA3  /  57.29578) 

TRAN 

55 

GAMG3{ 1 , 1 )  =  COSE3 

TRAN 

56 

GAMG3(1,2)  =  SINE3  *  SINZ3 

TRAN 

57 

GAMG3(1,3)  =  SINE3  *  COS23 

TRAN 

58 

GAMG3(2, 1 )  =0.0 

TRAN 

59 

GAMG3(2,2)  =  COSZ3 

TRAN 

60 

GAMG3(2,3)  =  -  SINZ3 

TRAN 

61 

GAMG3(3, 1 )  =  -  SINE3 

TRAN 

62 

GAMG3(3,2)  =  COSE3  *  SINZ3 

TRAN 

63 

GAMG3(3,3)  =  COSE3  *  COS23 

TRAN 

64 

DO  20  I  =  1  ,  3 

TRAN 

65 

DO  20  J  =  1 ,  3 

TRAN 

66 

ALG2(I,J)  =  GAMG2(I,J) 

TRAN 

67 

20 

ALG3(I,J)  =  GAMG3(I,J) 

TRAN 

68 

DO  30  I  =  1,  3 

TRAN 

69 

ALHG2 (1,1)  =  1.0 

TRAN 

70 

30 

ALHG3(I,I)  =1.0 

TRAN 

71 

CGAM( 1,1)  =  1.0 

ALHG1(3,3)  =  1.0 

TR.\N 

72 

TRAN 

73 

GAMW1 (3,3)  =  1.0 

TRAN 

74 

GAMW2( 3, 3)  =1.0 

TRAN 

75 

GAMW3 (3,3)  =  1.0 

TRAN 

76 

40 

SPLi  =  SIN(PHIR) 

TRAN 

77 

CPHI  =  COS(PHIR) 

TRAN 

78 

STHET  =  SIN(THETR) 

TRAN 

79 

CTHET  =  COS(THETR) 

TRAN 

80 

TTHET  =  TAN(THETR) 

TRAN 

81 

SPSI  =  SIN(PSIR) 

TRAN 

82 

CPS I  =  COS(PSIR) 

TRAN 

83 

GAME (1,1)  =  CTHET  *  CPS I 

TRAN 

84 

GAMB(1,2)  =  -  SPSI  *  CPHI  +  SPHI 

*  STHET 

*  CPSI 

TRAN 

85 

GAMB(1,3)  =  SPSI  *  SPHI  +  CPHI  * 

STHET  * 

CPSI 

TRAN 

86 

GAMB(2,1)  =  CTHET  *  SPSI 

TRAN 

87 

GAMB(2,2)  =  CPHI  *  CPSI  +  SPHI  * 

STHET  * 

SPSI 

TRAN 

88 

GAME (2, 3)  =  -  SPHI  *  CPSI  ♦  CPHI 

*  STHET 

*  SPSI 

TRAN 

89 

GAMB(3,1)  =  -  STHET 

TRAN 

90 

GAMB(3,2)  =  SPHI  *  CTHET 

TRAN 

91 

GAMB(3,3)  =  CPHI  *  CTHET 

TRAN 

92 

CGAM(1,2)  =  TTHET  *  SPHI 

TRAN 

93 
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50 


60 


70 


CGAM'  ,3)  =  TTHET  *  CPHI 
CGAM(2,2)  =  CPHI 

CGAM(2,3)  =  -  SPHI 

CGAM(3,2)  =  SPHI  /  CTHET 

CGAM(3,3)  =  CPHI  /  CTHET 

ALHG1(1,1)  =  COS(THTGIR) 

ALHG1(1,2)  =  SIN(THTGIR) 

ALHG1(2,1)  =  -  ALHG1(1,2) 

ALHG1 (2,2)  =  ALHG1 (1,1) 

DO  50  I  =  1  ,  3 

DO  50  J  =  1  ,  3 

ALG1 (I,J)  =  0.0 

DO  50  K  =  1  ,  3 

ALG1(I,J)  =  ALHG1(J,K)  *  GAMG1(I,K)  +  ALGI(I.J) 
A1  =  0.0 

B1  =  0.0 

DO  60  I  =  1  ,  3 
A1  =  ALG1(I,2)  *  GAMB(2,I)  +  A1 

B1  =  ALG1(I,2)  *  GAMB(1,I)  +  B1 

GAMW1(1,1)  =  A1  /  (SQRT(A1  **2  -t-  B1  **2)) 
GAMW1(1,2)  =  -  GAMW1(1,1)  *  B1  /  A1 
GAMW1 (2,1)  =  -  GAMW1 (1,2) 

GAMW1(2,2)  =  GAMW1(1,1) 

A2  =  GAMB(2,2) 

B2  =  GAMB( 1,2) 

GAMW2(1,1)  =  A2  /  (SQRT(A2  **2  +  B2  **2)) 
GAMW2(1,2)  =  -  GAMW2(1,1)  *  B2  /  A2 
GAMW2 (2,1)  =  -  GAMW2 (1,2) 

GAMW2 (2,2)  =  GAMW2 (1,1) 

GAMW3(1,1)  =  GAMW2(1,1) 

GAMW3 (1,2)  =  GAMW2 (1,2) 

GAMW3(2,2)  =  GAMW2(2,2) 

GAMW3(2,1)  =  -  GAMW3(1,2) 

DO  701=1,3 
DO  70  J  =  1  ,  3 
GBAG1 ( I , J)  =  0.0 
GBAG2(I,J)  =0.0 
GBAG3(I,J)  =  0.0 
DO  70  K  =  1  ,  3 

GBAG1(I,J)  =  GAMB(I,K)  *  ALG1(K,J)  +  GBAGl(I,J) 

GBAG2(I,J)  =  GAMB(I,K)  *  ALG2(K,J)  +  GBAG2(I,J) 

GBAG3(I,J)  =  GAMB(I,K)  *  ALG3(K,J)  +  GBAG3(I,J) 

DO  80  I  =  1  ,  3 

DO  80  J  =  1  ,  3 

GBGG1 ( I , J)  =  0.0 

GBGG2(I,J)  =  0.0 

GBGG3(I,J)  =  0.0 

DO  80  K  =  1  ,  3 

GBGG1(I,J)  =  GAMB(I,K)  *  GAMG1(K,J)  +  GBGG1(I,J) 

GBGG2(I,J)  =  GAMB(I,K)  *  GAMG2(K,J)  +  GBGG2(I,J) 

GBGG3(I,J)  =  GAMB(I,K)  *  GAMG3(K,J)  +  GBGG3(I,J) 

DO  90  I  =  1  ,  3 
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TRAN1 38 
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TRAN142 
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TRAN145 


84 


SOURCE  DECK  LISTING 


DO  90  J  =  1  ,  3 
GW1GB(I,J)  =  0.0 

GW2GB(I,J)  =  0.0 

GW3GB(I,J)  =  0.0 

DO  90  K  =  1  ,  3 

GW1GB(I,J)  =  GAMW1(I,K)  *  GAMB(K,J)  +  GW1GB(I,J) 

GW2GB(I,J)  =  GAMW2(I,K)  *  GAMB{K,J)  +  GW2GB(I,J) 

90  GW3GB(I,J)  =  GAMW3(I,K)  *  GAME(K,J)  +  GW3Gfa(l,J) 

DO  100  I  =  1,  3 
DO  100  J  =  1 ,  3 
GWBAG1 ( I ,J)  =  0.0 

GWBAG2(I,J)  =  0.0 

GWBAG3{I,J)  =  0.0 

DO  100  K  =  1 ,  3 

GWBAG1(I,J)  =  GW1GB{I,K)  *  ALG1(K,J)  +  GWBAG1(I,J) 

GWBAG2(I,J)  =  GW2GB(I,K)  *  ALG2(K,J)  +  GW3AG2(I,J) 

100  GWBAG3(I,J)  =  GW3GB(I,K)  *  ALG3(K,J)  +  GWBAG3(I,J) 

RETURN 

END 

SUBROUTINE  DYDXS 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 

1  NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  MV1V1,  M0101,  M0102,  M0103,  M0201 ,  M0202 , 

1  M0203,  M0301 ,  M0302 ,  M0303 ,  MV1S1,  MV3S1 ,  M02S1 ,  MOW1 ,  MV1S2, 

2  MV2S2,  MV3S2,  M01S2,  M02S2,  M03S2,  MOW2,  MV1S3,  MV2S3,  MV3S3, 

3  M01S3,  M02S3,  M03S3,  MOW3,  MQG1 ,  MQG2,  MQG3,  MOG1 ,  MS1QG, 

4  MS2QG,  MS3QG,  MQB1 1 ,  MQB22,  MQB33,  MQB44,  MQB55,  MQB66, 

5  MQB77,  MQB88,  MQB,  KQB1 1 ,  KQB22,  KQB33,  KQB44,  KQB55,  KQB66, 

6  KQB77,  KQB88,  KQB,  KQG1 ,  KQG2 ,  KQG3 ,  LAGXA1 ,  LAGXA2 ,  LAGXA3 , 

7  LCGXA1 ,  LCGXA2,  LCGXA3 ,  LH,  LP,  LTH,  MP 

DIMENSION  VBD(3),  VB{3),  OMEGBD(3),  OMEGE(3), 

1  QG1DD(2).  QG2DD(2),  QG3DD(3),  QG1D(2),  QG2D(2),  QG3D(2), 

2  QQG1D(2),  QQG2D(2),  QQG3D(2),  QG1(2),  QG2 ( 2 ) ,  QG3(2), 

3  QBDD(8),  QBD(8),  QQBD(8),  QB(8),  ACCB(3) 

DIMENSION  FG1 (3) ,  FG2(3),  FG3(3),  FP(3),  FH(3), 

1  FG1GAM(3),  FG2GAM(3),  FG3GAM(3),  FHGAM(3),  FGQG(2),  FGQB(8), 

2  FHQB(8) ,  MP(3) ,  FPQB(8) 

DIMENSION  MQB(8,8),  MQG1(2,2),  MQG2(2,2),  MQG3 ( 2 , 2 ) , 

1  MS1QG(2),  MS2QG(2),  MS3QG(3),  ZQG1(2),  Z(2G2  (  2  )  ,  ZQG3  {  2  )  , 

2  C(2B(8,8),  K(2Gi(2,2),  KQG2(2,2),  KQG3(2,2),  KQB  (8, 8) 

DIMENSION  PGA1 (3,2) ,  PGA2 ( 3 , 2 ) ,  PGA3 ( 3 , 2 ) ,  PBH(3,8), 
1  PBA1(3,8),  PBA2(3,8),  PBA3(3,8) 

DIMENSION  GAMB( 3,3) ,  GAMG1(3,3),  GAMG2 ( 3 , 3 ) , 

1  GAMG3(3,3)  GBAG1(3,3),  GBAG2 ( 3 , 3 ) ,  GBAG3(3,3),  GBGG1(3,3), 

2  GBGG2(3,3),  GBGG3 ( 3 , 3 ) ,  ALG1{3,3),  ALG2(3,3),  ALG3 ( 3 , 3 ) , 

3  CGAM(3,3) 

DIMENSION  LAGXA1 (3) ,  LAGXA2 ( 3 ) ,  LAGXA3 ( 3 ) , 

1  LCGXA1(3),  LCGXA2(3),  LCGXA3{3),  LH(3),  LP(3),  LTH(3), 

2  XH(3),  XP(3),  XTH(3),  XN(3),  XIA1D{3),  XIA2D(3),  XIA3D(3), 

3  GXIA1(3) 

DIMENSION  A( 15, 15) ,  B(15),  X{15),  A2{15,16) 

DIMENSION  NTB1 (110) 
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TRAN1 55 
TRAN1 56 
TRAN1 57 
TRAN1 58 
TRAN1 59 
TRAN160 
TRAN161 
TRAN162 
TRAN163 
TRAN164 
DYDX  1 
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DYDX  14 
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DYDX  1 9 
DYDX  20 
DYDX  21 
DYDX  22 
DYDX  23 
DYDX  24 
DYDX  25 
DYDX  26 
DYDX  27 
DYDX  28 
DYDX  29 
DYDX  30 
DYDX  31 
DYDX  32 
DYDX  33 
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EQUIVA  ZNCE  (Y(1),  T),  (Y(2),  VB) ,  (Y(5),  D) ,  DYDX  34 

1  (Y(6),  S),  (Y{7),  V),  (Y(8),  OMEGB),  (Y(n),  PHIR)  ,  DYDX  35 

2  (Y(12),  THETR),  (Y(13),  PSIR) ,  (Y(14),  SID),  (Y(15),  S2D) ,  DYDX  36 

3  (Y(16),  S3D),  (Y(17),  SI),  (Y(18),  S2),  (Y(19),  S3),  DYDX  37 

4  (Y(20),  OMW1),  (Y(21),  OMW2 ) ,  (Y(22),  OMW3 ) ,  (Y(23),  BETA1 ) ,  DYDX  38 

5  (Y(24),  BETA2),  (Y(25),  BETA3),  (Y(26),  BTAS1 ) ,  (Y(27),  BTAS2),DYDX  39 

6  (Y{28),  BTAS3),  (Y(29),  DLSU1 ) ,  (Y(30),  DLSU2 ) ,  (Y(31),  DLSU3 ) , DYDX  40 

7  (Y(32),  DLSLI),  (Y(33),  DLSL2 ) ,  (Y(34),  DLSLi ) ,  (Y{35),  QG1D),  DYDX  41 

8  (Y(37),  QG2D),  (Y(39),  QG3D) ,  (Y(41),  QG1 ) ,  (Y(43),  QG2 ) ,  DYDX  42 

9  (Y{45),  QG3),  (Y(47),  QBD) ,  (Y(55),  QB) ,  (Y(63),  OMG1D),  DYDX  43 

1  (Y(64),  THTG1R)  DYDX  44 

EQUIVALENCE  (DYDX(2),  VBD) ,  (DYDX(5),  DD) ,  DYDX  45 

1  (DYDX(6),  SD) ,  (DYDX(7),  VD) ,  {DYDX(8),  OMEGBD) ,  DYDX  46 

2  (DYDX(II),  PHIRD),  (DYDX(12),  THETRD) ,  (DYDX(13),  PSIRD) ,  DYDX  47 

3  (DYDX(14),  S1DD),  (DYDX{15),  S2DD) ,  (DYDX(16),  S3DD) ,  DYDX  48 

4  (DYDX(17),  SS1D),  (DYDX{18),  SS2D) ,  (DYDX(19),  SS3D) ,  DYDX  49 

5  (DYDX(20),  OMW1D),  (DYDX(21),  OMW2D) ,  (DYDX(22),  OMW3D) ,  DYDX  50 

6  (DYDX(23),  BETA1D),  (DYDX(24),  BETA2D) ,  (DYDX(25),  BETA3D) ,  DYDX  51 

7  (DYDX{26),  BTAS1D),  (DYDX(27),  BTAS2D) ,  (DYDX(28),  BTAS3D) ,  DYDX  52 

8  (DYDX(29),  DLSU1D),  (DYDX(30),  DLSU2D) ,  (DYDX(31),  DLSU3D) ,  DYDX  53 

9  (DYDX(32),  DLSL1D),  (DYDX(33),  DLSL2D) ,  (DYDX(34),  DLSL3D) ,  DYDX  54 

1  (DYDX(35),  QG1DD),  (DYDX(37),  QG2DD) ,  {DYDX(39),  QG3DD) ,  DYDX  55 

2  (DYDX(41),  QQG1D),  (DYDX(43),  QQG2D) ,  (DYDX(45),  QQG3D) ,  DYDX  56 

3  (DYDX(47),  QBDD),  (DYDX(55),  QQBD) ,  (DYDX(63),  OMG1DD),  DYDX  57 

4  (DYDX(64),  OOMG1D)  DYDX  58 

EQUIVALENCE  (P(3),  XN)  DYDX  59 

EQUIVALENCE  (P(17),  WC13),  (P(35),  MV1S1),  DYDX  60 

1  {P(36),  MV3S1),  {P(37),  M02S1),  (P(38),  MOW1 ) ,  (P(39),  MOG1 ) ,  DYDX  61 

2  (P(40) ,  ZQG1 )  DYDX  62 

EQUIVALENCE  (P{57),  WC23),  (P(75),  MV1S2),  DYDX  63 

1  (P(76),  MV2S2),  (P(77),  MV3S2),  (P(78),  M01S2),  (P(79),  M02S2),DYDX  64 

2  (P(80),  M03S2),  (P{81),  MOW2 ) ,  (P(83),  ZQG2)  DYDX  65 

EQUIVALENCE  (P(9T),  WC33),  (P(n5),  MV1S3),  DYDX  66 

1  (P(n6),  MV2S3),  (P(117),  MV3S3),  (P(118),  MOlS3),  DYDX  67 

2  (P(119),  M02S3),  {P(120),  M03S3),  (P(121),  MOW3),  DYDX  68 

3  (P{123) ,  ZQG3)  DYDX  69 

EQUIVALENCE  (P(131),  XH)  DYDX  70 

EQUIVALENCE  (P(146),  XTH) ,  (P(149),  SIGT) ,  DYDX  71 

1  (P(150),  THRUST)  DYDX  72 

EQUIVALENCE  (P(151),  MV1V1 ) ,  (P(152),  M0101 ) ,  DYDX  73 

1  (P{153),  M0102),  (P(154),  M0103),  (P(155),  M0201 ) ,  DYDX  74 

2  (P(156),  M0202),  (P(157),  M0203 ) ,  (P(158),  M0301 ) ,  DYDX  75 

3  (P(159),  M0302),  (P(160),  M0303 )  DYDX  76 

EQUIVALENCE  (P(161),  XP)  DYDX  77 

EQUIVALENCE  (P(401),  MQB1 1 ) ,  {P(402),  MQB22),  DYDX  78 

1  (P(t03),  MQB33),  (P(404),  MQB44),  (P(405),  MQB55),  DYDX  79 

2  (P(406),  MQB66),  (P{407),  MQB77),  (P(408),  MQB88)  DYDX  80 

EQUIVALENCE  (P(411),  ZQB1 1 ) ,  (P(412),  ZQB22),  DYDX  81 

1  (P{I13),  ZQB33),  {P(414),  ZQB44),  (P(415),  ZQB55),  DYDX  82 

2  (P(«16),  ZQB66),  (P(417),  ZQB77),  (P(418),  ZQB88)  DYDX  83 

EQUIVALENCE  (P(421),  KQB1 1 ) ,  (P(422),  KQB22),  DYDX  84 

1  (P(I23),  KQB33),  (P(424),  KQB44),  (P(425),  KQB55),  DYDX  85 
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(P(426),  KQB66),  (P(427),  KQB77),  (P(428),  KQB88)  DYDX  86 

EQUIVALENCE  (P(431),  PBH1 1 ) ,  (P(432),  PBH21),  DYDX  87 

(P(433),  PBH31),  (P(434),  PBH12),  (P(435),  PBH22),  DYDX  88 

(P(436),  PBH32),  (P(437),  PBH13),  (P{438),  PBH23),  DYDX  89 

(P(439),  PBH33),  (P(440),  PBH14),  (P{441),  PBH24),  DYDX  90 

(P(442),  PBH34),  (P(443),  PBH15),  (P(444),  PBH25),  DYDX  91 

(P(445),  PBH35),  (P(446),  PBH16),  (P{447),  PBH26),  DYDX  92 

(P(448),  PBH36),  (P(449),  PBH17),  (P(450),  PBH27),  DYDX  93 

(P(451),  PBH37),  (P(452),  PBH18),  (P(453),  PBH28),  DYDX  94 

(P(454) ,  PBH38)  DYDX  95 

EQUIVALENCE  (P(476),  FP(1)),  (P{479),  MP(1)),  DYDX  96 

(P(482) ,  FPQB( 1 ) )  DYDX  97 

EQUIVALENCE  (P(501),  FS1 ) ,  (P(513),  VW1 )  YDX  98 

EQUIVALENCE  (P(518),  FS2),  (P(530),  VW2 )  DYDX  99 

EQUIVALENCE  (P{  535),  FS3 ) ,  (P(  547  ),  VW3 )  DYDX100 

EQUIVALENCE  (P(551),  FH)  DYDX101 

EQUIVALENCE  (P(571),  GAME),  {P(580),  ACCB),  DYDX102 

(P(584),  CGAM)  DYDX103 

EQUIVALENCE  (P(601),  GAMGl ) ,  (P(610),  ALG1 ) ,  DYDX104 

(P(637),  GBAG1),  (P(646),  GBGG1 ) ,  (P(673),  FG1 ) ,  DYDX105 

(P(676),  LAGXA1),  {P(679),  GXIA1 ) ,  (P(682),  PGA1 ) ,  DYDX106 

(P(688),  XIA1D),  (P(691),  CMOM)  DYDX107 

EQUIVALENCE  (P(701),  GAMG2 ) ,  (P(710),  ALG2 ) ,  DYDX108 

(P{737),  GBAG2),  (P{746),  GBGG2 ) ,  (P{773),  FG2 ) ,  DYDX109 

(P{776),  LAGXA2),  (P(782),  PGA2),  (P(788),  yiA2D)  DYDX110 

EQUIVALENCE  (P(801),  GAMG3 ) ,  (P(810),  ALG3 ) ,  DYDX1 1 1 

{P(837  ),  GBAG3),  (P(846),  GBGG3),  (P{873),  FG3),  DYDXn2 

(P(876),  LAGXA3) , (P(882) ,  PGA3),  (P(888),  XIA3D)  DYDX113 

EQUIVALENCE  (P(901),  PBAl  )  ,  (P(926),  PBA2 )  ,  DYDXn4 

(P(951),  PBA3)  DYDX 115 

EQUIVALENCE  ( NTEGER(  1 "!  )  ,  NHOOK)  DYDX116 

EQUIVALENCE  (NTEGER(15),  NBE),  (NTEGER(16),  NGEI  )  ,  DYDXn7 
(NTEGER(17),  NGE2 ) ,  (NTEGER(18),  NGE3 ) ,  (NTEGER(22),  NCASR1 ) ,  DYDXIIB 
(NTEGER(23),  INIT)  DYDX119 

EQUIVALENCE  (NTEGER(56),  NTB1 )  DYDX120 

EQUIVALENCE  ( NTEGER { 20 3 ) ,  NSU1 ) ,  (NTEGER( 204 ) ,  NSU2 ) , DYDX1 2 1 
(NTEGER{  205  )  ,  NSU3)  DYDX122 

IF  (T)  10,  10,  40  DYDX123 

CALL  TRANS  DYDX 124 

IF  (INIT.EQ.O)  CALL  INiTI  DYDX125 

DO  20  I  =  1 ,  3  DYDX 126 

LH(I)  =  XN(I)  -  XH<I)  DYDX127 

LPfl)  =  XN(I)  -  XP(I)  DYDX 128 

LTH ( I )  =  XN { I )  -  XTH ( I )  DYDX 1 2  9 

FT1  =  THRUST  *  COS(SIGT  /  57.29578)  DYDXUO 

FT3  =  -  THRUST  *  SIN(SIGT  /  57.29578)  DYDX131 

MT2  =  LTH{3)  *  FTl  -  LTH(1)  *  FT3  DYDX132 

MQB( 1,1)  =  MQB1 1  DYDX 1 33 

•"2B{2,2)  =  MQB22  DYDX  134 

MQB(3,3)  =  MQB33  DYDX135 

MOB(4,4)  =  MQB44  DYDX’ 36 

MQB(5,5)  =  MQB55  DYDX137 


87 


SOURCE  DECK  LISTING 


MQB ( 6 , J ) 
MQB (7,7) 
MQB(8,8) 
KQB( 1,1) 
KQB { 2 , 2 ) 
KQB ( 3 , 3 ) 
KQB ( 4 , 4 ) 
KQB ( 5 , 5 ) 
KQB (6,6) 
KQB(7,7) 
KQB(8,8) 
CQB( 1,1) 
CQB ( 2 , 2 ) 
COB (3, 3) 
CQB (4,4) 
CQB ( 5 , 5 ) 
CQB(6,6' 
CQB (7, 7) 
CQB (8, 8) 
PBH( 1,1) 
PBH(2,1 ) 
PBH(3, 1 ) 
PBH(1 ,2) 
PBH{2,2) 
PBH(3,2) 
PBH (1,3) 
PBH(2,3) 
PBH(3,3) 
PBH( 1,4) 
PBH(2,4) 
PBH(3,4) 
PBH( 1 ,5) 
PBH(2,5) 
PBH (3,5) 
PBH( 1 ,6) 
PBH(2,6) 
PBH(3,6) 
PBHd  ,7) 
PBH (2, 7) 
PBH ( 3,7) 
PBH( 1,8) 
PBH (2, 8) 
PBH (3,8) 
DO  30  I 

DO  30  J 

30  A(I,J) 

A(  1  ,  1  ) 

A(1 ,7) 

A(1 ,8) 

A( 1 ,9) 
A(2,2) 
A(2,8) 


MQB  6  6 
MQB  7  7 
MQB88 
KQB1  1 
KQB  2  2 
KQB  3  3 
KQB44 
KQB  5  5 
KQB  6  6 
KQB77 
KQBdS 

2.0  *  ZQB11  *  SQRT(MQB11 

2.0  *  ZQB22  *  SQRT(MQB22 

2.0  *  ZQB33  *  SQRT(MQB33 

2.0  *  ZQB44  *  SQRT(MQB44 

2.0  *  ZQB55  *  SQRT(MQB55 

2.0  *  ZQB66  *  SQRT(MQB66 

2.0  *  ZQB77  *  SQRT(MQB77 

2.0  *  ZQB88  *  SQRT(MQB88 

PBH1  1 
PBH21 
PBH31 
PBH1  2 
PBH22 
PBH32 
PBH1  3 
PBH23 
PBH33 
PBH  14 
PBH24 
PBH  3  4 
PBH  15 
PBH25 
PBH35 
PBH  16 
PBH26 
PBH36 
PBH1  7 
PBH27 
PBH37 
PBH  18 
PBH28 
PBH38 
1  ,  15 
1  ,  15 

0. 

MV1V1 

MV1S1 

MV1S2 

MV1S3 

MV1V1 

MV2S2 


DYDXl 38 
DYDXI 39 
DYDXl 40 
DYDXI 41 
DYDXl 42 
DYDXI 43 
DYDXI 44 
DYDXI 45 
DYDXI 46 
DYDXl 47 
DYDXl 48 


* 

KQB1 1 ) 

DYDXI 49 

* 

KQB22) 

DYDXI 50 

* 

KQB33) 

DYDXI 51 

* 

KQB44) 

DYDXI 52 

* 

KQB55) 

DYDXI 53 

* 

KQB66) 

DYDXI 54 

if 

KQB77) 

DYDXI 55 

* 

KQB88 ) 

DYDXI 56 

DYDXI 57 
DYDXI 58 
DYDXI 59 
DYDXI 60 
DYDXI 61 
DYDXI 62 
DYDXI 63 
DYDXI 64 
DYDXI 65 
DYDXl 66 
DYDXI 67 
DYDXI 68 
DYDXI 69 
DYDXI 70 
DYDXI 71 
DYDXI 72 
DYDXI 73 
DYDXI 74 
DYDXI 75 
DYDXI 76 
DYDXI 77 
DYDXI 78 
DYDXI 79 
DYDXI 80 
DYDXI 81 
DYDXI 82 
DYDXI 83 
DYDXl 84 
DYDX 1 8  5 
DYDXI 86 
DYDX 1 8  7 
DYDXI 88 
DYDXI 89 
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SOURCE  DECK  LISTING 


A(2,9) 

= 

MV2S3 

A(3,3) 

= 

MV1 VI 

A(3,7) 

= 

MV3S1 

A(3,8) 

= 

MV3S2 

A(3,9) 

= 

MV3S3 

A(4,4) 

= 

M0101 

A(4,5) 

= 

MO  102 

A(4,6) 

= 

M0 103 

A(4,8) 

= 

M01S2 

A(4,9) 

= 

M01S3 

A(5,5) 

= 

M0202 

A(5,6) 

= 

M0203 

A(5,7) 

= 

M02S1 

A  (  5 , 8  ) 

= 

M02S2 

A(5,9) 

= 

M02S3 

A(6,6) 

= 

M0303 

A(6,8) 

= 

M03S2 

A(6,9) 

= 

M03S3 

NA  =  9 

+ 

NGE1  +  NGE2  +  NGE3 

NAM1  = 

NA 

.  -  1 

NAP1  = 

NA 

.  +  1 

NG1P9  = 

>  9 

+  NGE1 

NG12P9 

= 

9  +  NGE1  +  NGE2 

CALL  GEAR1 

CALL  GEAR2 

CALL  GEAR3 

CALL  AERO 

NHOOK  =  0  FOR  NO  ARRESTING  FORCE 
NHOOK  =  1  FOR  UNSYMMETRICAL  ARRESTING  FORCE 
NHOOK  =  2  FOR  SYMMETRICAL  ARRESTING  FORCE 


50 

IF  (NHOOK  -  1 )  50,  60,  70 

CALL  HOOK 

60 

GO  TO  80 

CALL  HOOKUS 

70 

GO  TO  80 

CALL  HOOKS 

80 

CALL  TRANS 

90 

FG1 (2) 

IF  (NSU1  -  1 )  90,  90,  100 

OMW1D  =  (VW1  +  WC13)  *  (FG1(1)  * 

1 

*  GAMb( 1,2))  /  MOW1 

100 

GO  TO  110 

OMW1D  =  0.0 

110 

IF  (NSU2  -  1 )  120,  120,  130 

120 

FG2(2) 

OMW2D  =  (VW2  +  WC23)  *  (FG2(1)  * 

1 

*  GAMBd  ,2))  /  MOW2 

130 

GO  TO  140 

OMW2D  =  0.0 

140 

IF  (N3U3  -  1)  150,  150,  160 

150 

FG3(2) 

OMW3D  =  (VW3  +  WC33)  *  (FG3(1)  * 

1 

*  GAMBd,  2))  /  MOW3 

160 

GO  TO  i70 

OMW3D  =  0.0 

GAMP  <2,2 


GAMB (2,2 


GAMB (2,2: 


DYDXI 90 

DYDX191 

DYDXI 92 

DYDXI 93 

DYDXI 94 

DYDXI 95 

DYDXI 96 

DYDXI 97 

DYDXI 98 

DYDXI 99 

DYDX200 

DYDX201 

DYDX202 

DYDX203 

DYDX204 

DYDX205 

DYDX206 

ByDX207 

DYDX208 

DYDX209 

DYDX2 1 0 

DYDX2 1 1 

DYDX2 1 2 

DYDX2 1 3 

DYDX2U 

DYDX21 5 

DYDX216 

DYDX2 1 7 

DYDX218 

DYDX219 

DYDX220 

DYDX221 

DYDX222 

DYDX223 

DYDX224 

DYDX225 

DYDX226 

DYDX227 

DYDX228 

DYDX229 

DYDX230 

DYDX231 

DYDX232 

DYDX233 

DYDX234 

DYDX235 

DYDX236 

DYDX237 

DYDX238 

DyDX239 

DYDX240 

DyDX24 1 
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DO  ^"’01  =  1,3 
FGIGAM(I)  =  0.0 
FG2GAM(I)  =  0.0 
FG3GAM(I)  =  0.0 
FHGAM(I)  =0.0 
DO  180  J  =  1 , 3 
FGIGAM(I)  =  FG1 (j) 
FG2GAM(I)  =  PG2(J) 
FG3GAM(I)  =  FG3(J) 
FHGAM( I )  =  FH(J)  * 


+  386.09 
+  FP ( 1  ) 


DO  190  I  = 
LCGXAKI)  = 
LCGXA2 ( I )  = 
LCGXA3 ( I )  = 
B( 1 )  =  MV1 VI 
*  GAMB (3,1)) 


1,  3 
(WC1  3 
(WC23 
(WC33 


*  GAMB(J,I) 

*  GAMB(J,I) 

*  GAMB(J,I) 
GAMB(J,I)  + 


+  FGIGAM(I) 
+  FG2GAM(I) 
+  FG3GAM(I) 
FHGAM( I ) 


Cl  3  +  VW1)  *  GAMB(3,I)  +  LAGXA1 ( I ) 

C23  +  VW2)  *  GAMB(3,I)  -t-  LAGXA2  ( I ) 

C33  +  VT^3)  *  GAMB(3,I)  +  LAGXA3(I) 

( OMEGB ( 3 )  *  VB ( 2 )  -  OMEGB ( 2 )  *  VB{ 3) 
FGIGAM(I)  +  FG2GAM(1)  +  FG3GAM(1) 


+  FPd  )  +  FHGAMd  )  +  FT1 

,  =  .  *  (OMEGBd)  *  VB(3)  -  OMEGB(3)  *  VBd  ) 

+  386.09  *  GAMB{3,2))  +  FG1GAM(2)  +  FG2GAM(2)  +  FG3GAM(2) 

+  FP(2)  +  FHGAM(2) 

no  =  MV1V1  *  (OMEGB(2)  *  VBd)  -  OMEGBd)  *  VB(2) 

+  386.09  *  GAMB(3,3))  +  FG1GAM(3)  +  FG2GAM(3)  +  FG3GAM(3) 

+  FP(3)  +  FHGAM(3)  +  FT3 

B(4)  =  OMEGB(3)  *  (MO201  *  OMEGB ( 

+  M0202  *  OMEGB(2)  +  M0203  *  OMEGB{3))  -  OMEGB(2)  * 

(M0301  *  OMEGBd)  +  M0302  *  OMEGB{2)  +  M0303  *  OMEGB(3)) 

+  FG1GAM(3)  *  LCGXA1(2)  -  FG1GAM(2)  *  LCGXA1(3) 

+  PG2GAM(3)  *  LCGXA2(2)  -  FG2GAM(2)  *  LCGXA2(3) 

+  PG3GAM(3)  *  LCGXA3(2)  -  FG3GAM(2)  *  LCGXA3(3) 

>  FHGAM(3)  *  LH(2)  -  FHGAM(2)  *  LH(3) 

+  FP(3)  *  LP(2)  “  FP(2)  *  LP{3)  f  MPd  ) 

B(5)  =  -  OMEGB(3)  *  (M0101  *  OMEGB{1) 

+  M0102  *  OMEGB(2)  +  M0103  *  OMEGB(3))  t-  OMEGBd)  * 

(M0301  *  OMEGBd)  +  M0302  *  OMEGB{2)  +  M0303  *  OMEGB(3)) 

+  FG1GAM(1)  *  LCGXA1(3)  -  FG1GAM(3)  *  LCGXA1 { 1 ) 

>  FG2GAMd)  *  LCGXA2(3)  -  FG2GAM(3)  *  LCGXA2  (1  ) 

+  FG3GAM(1)  *  LCGXA3(3)  -  FG3GAM(3)  *  LCGXA3 ( 1 ) 

+  FHGAMd)  *  LH(3)  -  FHGAM(3)  *  LHd  ) 

+  FPd)  *  LP(3)  -  FP(3)  *  LPd)  +  MP(2)  +  MT2 

B(6)  =  OMEGB(2)  *  (M0101  *  OMEGB(I) 

+  M0102  *  OMEGB(2)  +  M0103  *  OMEGB(3))  -  OMEGBd)  * 

(M0201  *  OMEGBd)  +  M0202  *  OMEGB(2)  +  M0203  *  OMEGB(3)) 
PG1GAM(2)  *  LCGXA1(1)  -  FG1GAM(1)  *  LCGXA1(2) 

+  FG2GAM(2)  *  LCGXA2 ( 1 )  -  FG2GAM{ 1 )  *  LCGXA2 ( 2 ) 

♦  PG3GAM(2)  *  LCGXA3d)  -  FG3GAMd )  *  LCGXA3(2) 

+  FHGAM(2)  *  LHd)  -  FHGAMd)  *  LH{2) 

♦  PP{2)  *  LPd)  -  FPd)  *  LP(2)  +  MP(3) 

FGB7  =0.0 
FGB8  =0.0 
FGB9  =0,0 
DO  200  1=1,3 
DO  200  J  =  1  ,  3 


DYDX242 

DYDX243 

DYDX244 

DYDX245 

DYDX246 

DYDX247 

DYDX248 

DYDX249 

DYDX250 

DYDX251 

DYDX252 

DYDX253 

DYDX254 

DYDX255 

DYDX256 

DYDX257 

DYDX258 

DYDX259 

DYDX260 

DYDX261 

DYDX262 

DYDX263 

DYDX264 

DYDX265 

DYDX266 

DyDX267 

DYDX268 

DYDX269 

DYDX270 

DYDX271 

DYDX272 

DYDX273 

DYDX274 

DYDX275 

DYDX276 

DYDX277 

DYDX278 

DYDX279 

DYDX280 

DYDX281 

DYDX282 

DYDX283 

DYDX284 

DYDX285 

DYDX286 

DYDX287 

DYDX288 

DYDX289 

DYDX290 

DYDX291 

DYDX292 

DYDX293 
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FGB7  =  FGIGAMd)  *  ALG1(I,J)  *  XIAID(J)  +  FGB7 
FGB8  =  FG2GAM(I)  *  ALG2(I,J)  *  XIA2D(J)  +  FGB8 
200  FGB9  =  FG3GAM(I)  *  ALG3(I,J)  *  XIA3D(J)  +  FGB9 

B(7)  =  FS1  +  FGB7  386.09  *  (MV1S1  *  GAMB(3,1) 
1  +  MV3S1  *  GAMB(3,3) ) 

B(8)  =  FS2  +  FGB8  +  386.09  *  (MV1S2  *  GAMB(3,1) 
1  +  MV2S2  *  GAMB(3,2)  +  MV3S2  *  GAMB(3,3)) 

B(9)  =  FS3  +  FGB9  +  386.09  *  (MV1S3  *  GAMB(3,1) 
1  +  MV2S3  *  GAMB(3,2)  +  MV3S3  *  GAMB(3,3)) 

CALL  TABSN1 (TABL1 { 1 ,9) ,  SI,  A(7,7),  NTB1(9)) 
CALL  TABSN1 (TABL1 ( 1 ,61 ) ,  S2 ,  A(8,8),  NTB1(61)) 
CALL  TABSN1 (TABL1 ( 1 ,61 ) ,  S3,  A(9,9),  NTB1(61)) 
IF  (NGE1 )  210,  240,  210 
210  DO  230  I  =  1 ,  NGE1 

K  =  15  +  I 
L  =  1 7  +  I 
M  =  101  +  I 
MA  =  9  +  I 

CALL  TABSN1  {TABL1 ( 1 ,K) ,  SI,  MQG1  (  I  ,  I  )  ,  NTBI(K)) 
CALL  TABSN1 (TABL1 { 1 ,L) ,  SI,  KQG1 ( I , I ) ,  NTBI(L)) 
CALL  TABSN1 (TABL1 ( 1 ,M) ,  SI,  MSIQG(I),  NTBI(M)) 

A  (  7  ,  flA )  =  MS  1  QG  (  I  ) 

A(MA,MA)  =  MQG1 ( I , I ) 

FGQG(I)  =  0.0 
DO  220  J  =  1  ,  3 
DO  220  N  =  1 ,  3 

220  FGQG(I)  =  FGIGAM(J)  *  ALG1(J,N)  *  PGA1(N,I) 

1  +  FGQG(I) 

B(MA)  =  FGQG(I)  -  KQG1  (  I  ,  I  )  *  QGKl) 

1  -  2.0  *  ZQGKI)  *  SQRT(KQG1  (  I  ,  I )  *  MQG1  (  I  ,  I  )  )  *  QGIDd) 


230 

QQGIDd)  =  QGIDd) 

240 

IF  (NGE2)  250,  280,  250 

250 

DO  270  1=1,  NGE2 

K  =  67  +  I 

L  =  69  +  I 

M  =  103  -t-  I 

MA  =  NG1P9  +  I 

CALL  TABSN1 (TABLI { 1 , K) ,  S2,  MOG2(I,I),  NTB1(K)) 
CALL  TABSN1  (TABL1  (  1  ,L)  ,  S2,  KQG2d,I),  NTBKD) 
CALL  TABSN1  (TABLI  d  ,M)  ,  R2  ,  MS2QGd),  NTB1(M)) 
A(8,MA)  =  MS2QG( I ) 

A(MA,MA)  =  MQG2( I , I) 

FGQG ( I )  =  0.0 
DO  260  J  =  1  ,  3 
DO  260  N  =  1  ,  3 

260  FGQG(I)  =  FG2GAM(J)  *  ALG2(J,N)  *  PGA2{N,I) 

1  +  FGQGd  / 

B(MA)  =  FGQG (I )  -  KQG2 (I , I )  *  QG2 (I ) 

1  -  2.0  *  ZQG2d)  *  SQRT(KQG2d  ,  I  )  *  MQG2  (I  ,  I  )  )  *  QG2Dd  ) 

270  QQG2D{ I )  =  QG2D( I ) 

280  IF  (NGE3)  290,  320,  290 

290  DO  3 1 0  I  =  1 ,  NGE3 


DYDX294 

DYDX295 

DYDX296 

DYDX297 

OYDX298 

DYDX299 

DYDX300 

DYDX301 

DYDX302 

DYDX303 

DYDX304 

DYDX305 

DYDX306 

DYDX307 

DYDX308 

DYDX309 

DYDX31 0 

DYDX31 1 

DYDX312 

DYDX31 3 

DYDX31 4 

DYDX31 5 

DYDX316 

DYDX31 7 

DYDX318 

DYDX31 9 

DYDX320 

DYDX321 

DYDX322 

DYDX323 

DYDX324 

DYDX325 

DYDX326 

DYDX327 

DYDX328 

DYDX  3  2  9 

DYDX333 

DYDX331 

DYDX332 

DYDX333 

DYDX334 

DYDX335 

DYDX336 

DYDX337 

DYDX338 

DYDX339 

DYDX340 

DYDX 341 

DYDX342 

DYDX343 

DYDX344 

DYDX345 
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SOURCE  DECK  LISTING 


K  =  L  +  I 

DYDX346 

L  =  69  +  I 

DYDX347 

M  =  103  +  I 

DYDX348 

MA  =  NG12P9  +  I 

DYDX349 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  S3, 

MQG3(I,I),  NTBKK)) 

DYDX350 

CALL  TABSN1 (TABL1 ( 1 ,L) ,  S3, 

KQG3(I,I),  NTBKD) 

DYDX351 

CALL  TABSN1 (TABL1 { 1 ,M) ,  S3, 

MS3QG(I),  NTBKM)) 

DYDX352 

A(9,MA)  =  MS3QG(I) 

DYDX353 

A(MA,MA)  MCG3(  1,1) 

DYDX354 

FGQG(I)  =0.0 

DYDX355 

DO  300  J  =  1  ,  3 

DYDX356 

DO  300  N  =  1 ,  3 

DYDX357 

300 

FGQG(l)  =  FG3GAM(J)  *  ALG3(J 

',N)  *  PGA3(N,  I  ) 

DYDX358 

1 

+  FGQG(I) 

DYDX359 

B(MA)  =  FGQG(I)  -  KQG3(I,l) 

*  QG3(I) 

DYDX360 

1 

-  2.0  *  ZQG3(I)  *  SQRT(KQG3(I,I)  *  MQG3 ( I , I ) )  *  QG3D( I ) 

DYDX361 

310 

QQG3D(I)  =  QG3D(I) 

DYDX362 

320 

DO  330  1=1,  KAMI 

DYDX363 

JJ  =  I  +  1 

DYDX364 

DO  330  J  =  JJ,  NA 

DYDX365 

A(J,I)  =  A(I,J) 

DYDX366 

330 

CONTINUE 

DYDX367 

DO  3401=1,  NA 

DYDX368 

DO  340  J  =  1  ,  NA 

DYDX369 

340 

A2(I,J)  =  A(I,J) 

DYDX370 

DO  350  I  =  1 ,  NA 

DYDX371 

350 

A2(I ,NAP1 )  =  B( I ) 

DYDX372 

CALL  GAUSS2(NA,  1,  1.0  E-08, 

A2,  X,  K3) 

DYDX373 

IF  (K3  -  1 )  360,  380,  360 

DYDX374 

360 

WRITE  (6,370)  K3 

DYDX375 

370 

FORMAT  (//I  OX,  25HGAUSS2  ERROR  SIGNAL 

K3  =  ,  15) 

DYDX376 

380 

VBD( 1 )  =  X(1 ) 

DYDX377 

VBD(2)  =  X(2) 

DYDX378 

VBD(3)  =  X(3) 

DYDX379 

OMEGBD( 1 )  =  X(4) 

DYDX380 

OMEGBD{2)  =  X(5) 

DYDX381 

OMEGBD(3)  =  X(6) 

DYDX382 

S1DD  =  X(7) 

DYDX383 

S2DD  =  X(8) 

DYDX384 

S3DD  =  X(9) 

DYDX385 

IF  (NGE1)  390,  410,  390 

DYDX386 

390 

DO  400  1=1,  NGE1 

DYDX387 

MA  =  9  +  I 

DYDX383 

400 

QGIDD(I)  =  X(MA) 

DYDX389 

410 

IF  (NGE2)  420,  440,  420 

DYDX390 

420 

DO  430  I  =  1,  NGE2 

DYDX391 

MA  =  NG1P9  -*•  I 

DYDX392 

430 

QG2DD(I)  =  X(MA) 

DYDX393 

440 

IF  (NGE3)  450,  470,  450 

DYDX394 

450 

DO  460  I  =  1 ,  NGE3 

DYDX390 

MA  =  NG12P9  +  I 

DYDX396 

460 

QG3DD( I )  =  X(MA) 

DYDX397 
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SOURCE  DECK  LISTING 


470 

IF  (NBE)  480,  520,  480 

DYDX398 

480 

DO  5101=1,  NBE 

DYDX399 

FGQB ( I )  =  0.0 

DYDX400 

DO  490  J  =  1  ,  3 

DYDX401 

DO  490  K  =  1 ,  3 

DYDX402 

490 

FGQB(I)  =  FGIGAM(J)  *  GAMG1(J,K)  *  PBA1(K,I) 

DYDX403 

1 

+ 

FG2GAM{J)  *  GAMG2(J,K)  *  PBA2(K,I) 

DYDX404 

2 

+ 

FG3GAM(J)  *  GAMG3(J,K)  *  PBA3(K,I)  +  FGQB(I) 

DYDX405 

FHQB { I )  =  0.0 

DYDX406 

DO  500  J  =  1  ,  3 

DYDX407 

500 

FHQB(I)  =  FHGAM(J)  *  PBH(J,I)  +  FHQBd) 

DYDX408 

QBDD(I)  =  (FGQB(I)  +  FHQB(I)  +  FPQB ( I )  -  KQB(I,I) 

DYDX409 

1 

★ 

QB(I)  -  CQB(I,I)  *  QBD(I))  /  MQB(I,I) 

DYDX4 1 0 

510 

QQBD( I )  =  QBD( I ) 

DYDX41  1 

520 

ACCB { 1 )  =  VBD ( 1 )  -  OMEGB ( 3 )  *  VB ( 2 ) 

DYDX41 2 

1 

+ 

OMEGB(2)  *  VB{3) 

DYDX4  1  3 

ACCB(2)  =  VBD{2)  +  OMEGB(3)  *  VB(1) 

DYDX4 1 4 

1 

- 

OMEGB  (  1  )  *  ''5(3) 

DYDX41 5 

ACCB ( 3 )  =  VBD ( 3 )  -  OMEGB ( 2 )  *  VB { 1 ) 

DYDX4 1 6 

1 

+ 

OMEGB ( 1 )  *  VB ( 2 ) 

DYDX41 7 

PHIRD  =  OMEGB(I)  *  CGAM( 1 , 1 )  +  OMEGB ( 2 ) *CGAM ( 1 , 2 ) 

DYDX418 

1 

+ 

CGAMd  ,3)  *  OMEGB(3) 

DYDX4 1 9 

THETRD  =  CGAM(2,2)  *  OMEGB(2)  +  CGAM(2,3)  *  OMEGB(3) 

DYDX420 

PSIRD  =  CGAM(3,2)  *  OMEGB(2)  +  CGAM(3,3)  *  OMEGB(3) 

DYDX421 

DD  =  GAMB(1,1)  *  VB(1)  +  GAMB(1,2)  *  VB(2) 

DYDX422 

1 

4- 

GAMB( 1,3)  *  VB(3) 

DYDX423 

SD  =  GAMB(2,1)  *  VB(1)  +  GAMB(2,2)  *  VB(2) 

DYDX424 

1 

4 

GAMB(2,3)  *  VB(3) 

DYDX425 

VD  =  GAMB (3,1)  *  VB ( 1 )  +  GAMB (3,2)  *  VB ( 2 ) 

DYDX426 

1 

4 

GAMB(3,3)  *  VB(3) 

DYDX427 

SS1D  =  SID 

DYDX428 

SS2D  =  S2D 

DYDX429 

SS3D  =  S3D 

DYDX430 

OOMG1D  =  OMG1D 

DYDX431 

IF  (NCASR1 )  530,  540,  530 

DYDX432 

530 

CALL  TABSN1 (TABL1 { 1 ,26) ,  SI,  MOG1 ,  NTB1(26)) 

DYDX433 

CALL  CASM01 (CMOM1 ) 

DYDX434 

OMG1DD  =  (FGIGAM(I)  *  (ALG1(1,2)  *  GXIA1 ( 1 ) 

DYDX435 

1 

ALG1{1,1)  *  GXIA1(2))  -*•  FG1GAM(2)  *  (ALG1(2,2)  *  GXIA1  ( 1  ) 

DYDX436 

2 

- 

ALG1(2,1)  *  GXIA1(2))  +  FG1GAM(3)  *  (ALG1(3,2)  *  GXIA1 ( 1 ) 

DYDX437 

3 

- 

ALG1{3,1)  *  GXIA1(2))  -  CMOM1 )  /  MOG1 

DYDX438 

540 

RETURN 

DYDX439 

END 

DYDX440 

SUBROUTINE  CASM01 (CMOMi ) 

CAS1  1 

I  =  1 

CAS1  2 

RETURN 

CAST  3 

END 

CAS1  4 

SUBROUTINE  FOR  LANDING  GEAR  NO.  1  CALCULATIONS 

GERl  1 

SUBROUTINE  GEAR1 

GER1  2 

COMMON  Y( 70),  DYDX(70),  FIRSTY(70),  P(2000), 

GERl  3 

1 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

GERl  4 

REAL  LT1 ,  LAGXA1,  KBULK,  KBF1 ,  KBG1 ,  NU1R, 

GERl  5 
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1  NUC1R,  MUG1,  NTH,  MUB1  ,  MV1S1,  MV3S1  ,  M02S1  ,  MOW!  ,  MWl  GER1  6 

DIMENSION  XN( 3) ,  XT1(3),  XA1(3),  XIA1(3),  XIA1D(3),  GER1  7 

1  LT1(3),  LAGXAU3),  GA1(3),  GXIA1(3),  GAME (3, 3),  GAMG1(3,3),  GERl  8 

2  GBAG1(3,3),  GBGG1(3,3),  GW1GB(3,3),  GWBAG1(3,3),  JAMW1(3,3),  GERl  9 

3  AGXIA1{3),  ALG1(3,^),  ALHG1(3,3).  PBA1(3,8),  PGA1(3,2),  GERl  10 

4  VB{3),  VBD(3),  OMEGB(3),  OMEGBD(3),  ACCB(3),  QB(8),  QBD(8),  GERl  11 

5  QQBD(8),  QBDD(O),  QG1(2),  QG1D(2),  QQG1D(2),  QG1DD(2),  GERl  12 

6  UBA1DD(3),  UGA1DD(3),  FAX1(3),  FG1(3),  FG1H(3),  BU1{3),  GERl  13 

7  BL1(3),  ZQG1(2)  GERl  14 

DIMENSION  NTB1 ( 1 10)  GERl  15 

EQUIVALENCE  (Y(1),  T) ,  (Y(2),  VB),  (Y(5),  D) ,  GERl  16 

1  (Y(6),  S),  (Y{7),  V),  (Y(8),  OMEGB) ,  (Y(11),  PHIR) ,  GERl  17 

2  (Y(12),  THETR),  (Y(13),  PSIR) ,  (Y(14),  SID),  (Y(17),  SI),  GERl  18 

3  (Y(20),  OMW1 ) ,  (Y(23),  BETA1 ) ,  (Y(26),  BTAS1 ) ,  {Y(29),  DLSU1 ) ,  GERl  19 

4  {Y(32),  DLSL1 ) ,  (Y(35),  QG1D),  (Y(41),  QG1 ) ,  (Y(47),  QBD) ,  GERl  20 

5  {Y(55),  QB),  (Y(63),  OMG1 ) ,  (Y(64),  THTG1R)  GERl  21 

EQUIVALENCE  {DYDX(2),  VBD) , ( DYDX ( 5 ) ,  DD) ,  GERl  22 

1  (DYDXvb),  SD),  vDYDX(7),  VD) ,  (DYDX(8),  OMEGBD) ,  GERl  23 

2  (DYDX(II),  PHIRD),  (DYDX(12),  THETRD) ,  (DYDX(13),  PSIRD) ,  GERl  24 

3  (DYDX(14),  S1DD),  (DYDX(17),  SS1D),  (DYDX(20),  OMM1D),  GERl  25 

4  (DYDX(23),  BETA1D),  (DYDX(26),  BTAS1D),  (DYDX(29),  DLSU1D),  GERl  26 

5  (DYDX(32),  DLoLiD),  {DYDX(35),  QG1DD),  (DYDX(41),  QQG1D),  GERl  27 

6  {DYDX(47),  QBDD^  (DYDX(55),  QQBD) ,  (DYDX(63),  OMG1D),  GERl  28 

7  {DYDX(64),  OOMGIj  GERl  29 

EQUIVALENCE  (P{3),  XN)  ,  (P(6),  KBULK)  ,  {P(7),  DENOIDGERI  30 

EQUIVALENCE  (P(11),  XT1 ) ,  (P(14),  XA1 ) ,  GERl  31 

1  (P(17),  WC13),  (P(18),  ETA1),  (P(19),  ZETA1 ) ,  (P(2C),  MUB1 ) ,  GERl  32 

2  (P(21),  KBF1),  (P(22),  CBGl ) ,  (P(23),  KBG1 ) ,  GERl  33 

3  {P(24),  VOLH01),  (P(25),  AH1 ) ,  (P(26),  AA1 ) ,  (P(27),  A01 ) ,  GERl  34 

4  (P(28),  CD1),  (P(29),  VOLS01),  (P(30),  AKS1 ) ,  (P(31),  ANSE1 ) ,  GERl  35 

5  (P(32),  ANSC1),  (P(33),  CDS1 ) ,  (P(34),  RW1 ) ,  (P(35),  MV1S1),  GERl  36 

6  {P(36),  MV3S1),  {P(37),  M02S1 ) ,  (P(38),  MOW1 ) ,  GERl  37 

7  (P{40),  ZQG1),  (P(42),  VW1 0 ) ,  (P(43),  AP1AVG),  (P(44),  MUR1 ) ,  GERl  38 

8  (P{45),  MWl),  (P(46),  CCOEF1)  GERl  39 

EQUIVALENCE  (P(501),  FS1 ) ,  (P(502),  FG1H),  GERl  40 

1  (P(505),  FAX1),  (P(508),  PHI),  (P(509),  PA1 ) ,  {P(510),  PHS1 ) ,  GERl  41 

2  (P(511),  FFBU1 ) ,  (P(512),  FFBL1 ) ,  (P(513),  VW1 )  GER1  42 

EQUIVALENCE  (P(571),  GAMB),  (P{580),  ACCB)  GERl  43 

EQUIVALENCE  (P(593),  FAXB1 )  GERl  44 

EQUIVALENCE  (P(601),  GAMG1 ) ,  (P(610),  ALG1 ) ,  GERl  45 

1  (P(619),  ALHG1),  (P{628),  GAMW1 ) ,  (P{637),  GBAG1 ) ,  GERl  46 

2  (P(646),  GBGG1),  (P(655),  GW1GB),  (P{664),  GWBAG1 ) ,  GERl  47 

3  (P(673),  FG1),  {P(676),  LAGXA1 ) ,  (P(679),  GXIAl )  GERl  48 

EQUIVALENCE  (P(682),  PGAl )  GERl  49 

EQUIVALENCE  {P(688),  XIA1D)  GERl  50 

EQUIVALENCE  { P ( 90 1 ) , PBAl ) , ( P ( 926 ) , PBA2 ) ,  GERl  51 

1  (P(951 ) ,PBA3)  GERl  52 

EQUIVALENCE  (NTEGER(15),  NBE) ,  (NTEGER(16),  NGE1 ) ,  GERl  53 

1  (NTEGER(19),  NSTYP1 )  GERl  54 

EQUIVALENCE  (NTEGER<56),  NTB1 )  GERl  55 

EQUIVALENCE  { NTEGER ( 20 3 ) ,  NSU1 ) ,  (NTEGER( 204 ) ,  NSU2),GER1  56 

1  (NTEGER( 205) ,  NSU3)  GERl  57 
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IF  (T)  20,  10,  20 

GER1  50 

10 

FBU1  =0.0 

GER1  59 

FBL1  =0.0 

GER1  60 

NSU1  =  1 

GER1  61 

20 

XIA1(2)=  0.0 

GER1  62 

XIA1D{2)  =  0.0 

GER1  63 

CALL  TABSNKTABLI  (1,1),  SI,  XIA1  ( 1  )  ,  NTB1  { 1  )  ) 

GER1  64 

CALL  TABSN1(TABL1(1,2),  SI,  XIA1{3),  NTB1(2)) 

GER1  65 

DO  30  I  =  1 ,  3 

GER1  66 

LT1  (I)  =  XN(I)  -  XTKI) 

GER1  67 

GA1 { I )  =  0.0 

GER1  68 

DO  30  K  =  1 ,  3 

GER1  69 

30 

GAI(I)  =  GAMGKK,!)  *  (XT1(K)  -  XA1(K))  +  GA1  (  I  ) 

GER1  70 

DO  501=1,3 

GER1  71 

50 

GXIA1 ( I )  =  XIA1 ( I )  +  GA1 { I ) 

GER1  72 

DO  60  I  =  1 ,  3 

GER1  73 

AGXIAI(I)  =  0.0 

GER1  74 

DO  60  K  =  1 ,  3 

GER1  75 

60 

AGXIAI(I)  =  ALG1(I,K)  *  GXIAI(K)  +  AGXIAI(I) 

GER1  76 

V1L  =  0.0 

GER1  77 

VI QB  =  0.0 

GER1  78 

VI GA  =  0.0 

GER1  79 

V1QG  =  0.0 

GER1  80 

IF  (NBE)  70,  100,  70 

GER1  81 

70 

DO  801=1,  NBE 

GER1  82 

DO  80  J  =  1 ,  3 

GEP.1  83 

K  =  23  +  3  *  I 

GER1  84 

80 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  SI,  PBA1(J,I),  NTB1 (K) ) 

GER1  85 

DO  90  LC  =  1  ,  3 

GER1  86 

DO  90  LD  =  1 ,  NBE 

GER1  87 

90 

V1QB  =  GBGG1(3,LC)  *  PBA1(LC,LD)  *  QB(LD)  +  V1QB 

GER1  88 

100 

IF  (NGE1)  110,  140,  110 

GER1  89 

110 

DO  120  I  =  1,  NGE1 

GER1  90 

DO  1 20  J  =  1  ,  3 

GER1  91 

K=16  +  3*I+J 

GER1  92 

120 

CALL  TABSN1 (TABL1 (1 ,K' ,  SI,  PGA1(J,I),  NTB1(K)) 

GER1  93 

DO  1 30  LC  =  1  ,  3 

GER1  94 

DO  1 30  LD  =  1 ,  NGE1 

GER1  95 

1  30 

V1QG  =  GBAG1(3,LC)  *  PGA1(LC,LD)  *  QGI(LD)  +  V1QG 

GER1  96 

140 

DO  1 50  LC  =  1  ,  3 

GER1  97 

VI L  =  GAMB(3,LC)  *  LTI(LC)  +  V1L 

GER1  98 

1  5  ' 

V1GA  =  GBAG1(3,LC)  *  GXIAI(LC)  +  V1GA 

GER1  99 

VW1  =  -  V  -  V1L  -  V1QB  -  V1GA  -  V1QG  -  WC13 

GER1 100 

VTR1  =  VW1  -  VW10 

GER1 101 

IF  (VTR1)  160,  170,  170 

GER1 102 

1  60 

CALL  TABSNKTABLI  (1,5),  VTR1  ,  FG1(3),  NTBK5)) 

GER1 103 

GO  TO  180 

GER1 104 

■»  "» 0 

FG1 (3)  =  0.0 

GER1 105 

1  80 

CALL  TABSN1 (TABL1 (1 ,3) ,  SI,  XIA1D(1),  NTB1(3)) 

GER1 106 

CALL  TABSN1  (TABLK1  ,4)  ,  SI.  XIA1D(3),  NTB1(4)) 

GER1 107 

DO  190  I  =  1,  3 

GER1 108 

1  90 

.  GXAKI)  =  LTKI)  +  AGXIAI(I) 

GER1 109 
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GW1GB( 1 , 


+  GW1GB(2, 
+  GW1GB(2, 
+  GW1GB(2, 
+  GW1GB(2, 
+  GWBAG1 (2 
-  GWBAG1 (2 


RAIIE  ^  GW1GB(1,1)  *  VB(1)  +  GW1GB(1,2)  *  VB(2) 

,3)  *  VB{3) 

IF  (VTR1)  200,  260,  260 

RA12D  =  GW1GB(2,1)  *  VB(1)  +  GW1GB(2,2)  *  VB(2) 

,3)  *  VB(3) 

,  1 )  *  ( OMEGB ( 2 )  *  LAGXA1 ( 3 )  -  OMEGB ( 3 )  *  LAGXA1 ( 2 ) ) 

,2)  *  (OMEGB(3)  *  LAGXA1 ( 1 )  -  OMEGB M )  *  LAGXA1(3)) 

,3)  *  (OMEGB(I)  *  LAGXA1(2)  -  OMEGB(2)  *  LAGXAI ( 1 ) ) 

2,2)  *  OMG1  *  GXIAl ( 1 ) 

2,1)  *  OMG1  *  GXIAl (2) 

IF  (NSUl  -  2)  210,  240,  210 
RFA11D  =  OMW1  *  (WC13  +  VW1 ) 

IF  (RA11D  +  RFA11D)  230,  230,  220 
NU1R  =  ATAN(RA12D  /  (RA11D  +  RFA11D)) 

SPR1  =  (RA11D  +  RFA11D)  /  RAIlD 

CALL  TABSN1 (TABL I ( 1 ,8 ) ,  SPR1 ,  MUG1 ,  NTB1{8)) 

FGIH(I)  =  -  MUG1  *  ABS(FG1(3))  *  COS(NUIR) 

FG1H(2)  =  -  MUG1  *  ABS(FG1(3))  *  SIN(NUIR) 

FG1H(3)  =  FG1 (3) 

GO  TO  250 
NSUl  =  2 

NUC1R  =  ATAN(RA12D  /  RA11D) 

FGIH(I)  =  -  MUR1  *  ABS(FG1(3)) 

FC1  =  CCOEF1  ^  57.29578  *  NUC1R  *  ABS(FG1(3)) 

FG1H(2)  =  -  FC1 
FG1H(3)  =  FG1 (3) 

FGKI)  =  GAMW1(1,1)  *  FG1H(1)  +  GAMW1  ( 2 , 1  )  *  FG1H(2) 
FG1(2)  =  GAMW1(1,2)  *  FG1H{1)  +  GAMW1(2,2)  *  FG1H(2) 
VOLH1  =  VOLH01  -  (AH1  -  AP1AVG)  *  SI 
CALL  TABSN1  (TABL1(1,7),  SI,  PA1 ,  NTB1(7)) 

CALL  TABSN1  (TABL1(1,6),  SI,  API,  NTB1(6)) 

AN1  =  A01  -  API 

PT1  =  -  KBULK  *  BETA1  /  VOLH1 

IF  (PT1)  270,  280,  280 

PT1  =  0.0 

PHI  =  PT1  -  PA1 

VEL1  =  SIGN  (SQRT(2.0  *  ABS(PH1 )  /  DENOIL),  PHI) 

VOLS1  =  VOLS01  +  AHS1  *  SI 

PTS1  =  -  KBULK  *  BTAS1  /  VOLS1 

IF  (PTS1)  290,  300,  300 

PTS1  =0.0 

IF  (NSTYP1  -  2)  310,  320,  310 

PHS1  =  PTS1  -  PA1 

GO  TO  330 

PHS1  =  PTS1  -  PT1 

VELS1  =  SIGN(SQRT(2,0  *  ABS(PHS11  /  DENOIL),  PHS1 ) 

IF(PHSI)  340,  340,  350 

ANSI  =  ANSC1 

GO  TO  360 

ANSI  =  ANSE1 

BTAS1D  =  CDS1  *  ANSI  *  VELS1  +  AHS1  *  SID 
IF  (MUB1 )  530,  530,  370 


GER1  1  1  0 
GER1 1  1  1 
GER1 1 12 
GER1 1  1  3 
GER 11)4 
GER1 1 1 5 
GER1 1 16 
GER1  1  1  7 
GER1 1 18 
GER1 1 1 9 
GER1 1 20 
GER1 121 
GER1 122 
GER1 123 
GER1 1 24 
GER1 125 
GER1 1 26 
GER1 127 
GER1 1 28 
GER1 129 
GER1 1 30 
GER1 131 
GER1 1 32 
GER1 1 33 
GER1 1 34 
GER1 1 35 
GER1 136 
GER1 1 37 
GER1 1 38 
GER1 1 39 
GER1 140 
GER1 141 
GER1 142 
GER1 143 
GER1 144 
GER1 145 
GER1 146 
GER1 147 
GER1 148 
GER1 149 
GER1 1 50 
GER1 151 
GER1 1 52 
GER1 153 
GER1 154 
GER1 1 55 
GER1 156 
GER1 1 57 
GER1 1 58 
GER1 1 59 
GER1 160 
GER1 161 
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370 

FFBU1  =  -  KBF1  *  DLSU1 

GER1 1 62 

FFBL1  =  -  KBF1  *  DLSL1 

GER1 1 63 

FFBU1L  =  MUB1  *  ABS(FBUI) 

GER1 164 

FFBL1L  =  MUB1  *  ABS{FBL1) 

GER1 1 65 

IF  (ABS(FFBUI)  -  FFBU1L)  390,  380,  380 

GER1 1 66 

380 

TEST1  =  FFBU1  *  SID 

GER1 1 67 

IF  (TEST1)  400,  390,  390 

GER1 168 

390 

DLSU1D  =  SID 

GER1 1 69 

GO  TO  410 

GER1 170 

400 

DLSU1D  =  0.0 

GER1 171 

DLSU1  =  -  SIGN(FfBU1L  /  KBF1  ,  FFBUl ) 

GER1 172 

FFBU1  =  -  KBF1  *  DLSU1 

GER1 173 

410 

IF  (ABS(FFBLI)  -  FFBL1L)  430,  420,  420 

GER1 174 

420 

TEST2  =  FFBL1  *  SID 

GER1 175 

IF  (TEST2)  440,  430,  430 

GER1 176 

430 

DLSL1D  =  SID 

GER1 177 

GO  TO  530 

GER1 1 78 

440 

DLSL1D  =  0.0 

GER1 1 79 

DLSL1  =  -  SIGN(FFBL1L  /  KBF1  ,  FFBLl ) 

GER1 180 

FFBL1  =  -  KBF1  *  DLSL1 

GER1 181 

530 

IF  (NSTYP1  -  2)  540,  550,  540 

GER1 182 

540 

FS1  =  -  (PA1  -  14.7)  *  AA1  -  PHI  *  (AH1  -  API) 

GER1 183 

1 

+  PHS1  *  (AHS1  -  ANSI)  +  FFBUl  FFBLl 

GER1 184 

BETA1D  =  CD1  *  AN1  *  VEL1  -  (AH1  -API)  *  SID 

GER1 185 

GO  TO  560 

GER1 186 

550 

FS1  =  -  (PA1  -  14.7)  *  AA1  -  PHI  *  (AH1  -  API  -  AHS1)GER1187 

1 

+  PHS1  *  (AHS1  -  ANSI)  +  FFBUl  +  FFBLl 

GER1 188 

BETA1D  =  CD1  *  AN1  *  VEL1  -  (AH1  -API)  *  SID 

GER1 189 

1 

-  ANSI  *  CDS1  *  VELS1 

GER1 190 

560 

IF  (SI )  570,  580,  580 

GER1 191 

570 

FS1  =  FS1  -  KBG1  *  SI  -  CBG1  *  SID 

GER1 1 92 

580 

DO  590  1=1,3 

GER1 1 93 

590 

FAXKI)  =  -  MWI  *  (ALG1(1,I)  *  ACCB(I)  + 

GER1 1 94 

1 

ALG1(2,I)  *  ACCB(2)  +  ALG1(3,I)  *  ACCB(3)  + 

GER1 195 

2 

ALG1(1,I)  *  (OMEGBD(2)  *  LAGXA1(3)  -  OMEGBD(3)  *  LAGXA1{2))  + 

GER1 1 96 

3 

ALG1(2,I)  *  (OMEGBD(3)  *  LAG.XA1  ( 1  )  -  OMEGBDd  )  *  LAGXA1(3))  + 

GER1 1 97 

4 

ALG1(3,I)  *  (OMEGBDd )  *  LAGXA1(2)  -  OMEGBD(2)  *  LAGXA1 (1 ) )  + 

GER1 1 98 

5 

XIAID(I)  *  S1DD  -  386.09  *  GBAG1(3,I))  + 

GER1 1 99 

6 

FGId)  *  GBAGId,!)  +  FG1(2)  *  GBAG1(2,I)  + 

GER1 200 

7 

FG1 ( 3)  *  GBAG1 (3,1) 

GER1201 

IF  (NBE)  600,  640,  600 

GER1 202 

600 

DO  6 1 0  J  =  1  ,  3 

GER1 203 

UBAIDD(J)  =0.0 

GER1 204 

DO  6 1 0  K  =  1 ,  NBE 

GER1 205 

610 

UBAIDD(J)  =  PBA1(J,K)  *  QBDD(K)  +  UBAIDD(J) 

GER1 206 

DO  630  I  =  1,  3 

GER1 207 

FIB  =  0.0 

GER1 208 

DO  620  K  =  1  ,  3 

GER1 209 

620 

F1B  =  ALHG1(I,K)  *  UBAIDD(K)  +  FIB 

GER1 21  0 

630 

FAXI(I)  =  -  MWI  *  FIB  +  FAXKI) 

GER1 21  1 

S4  0 

IF  (NGE1 )  650,  680,  650 

GER1 21  2 

650 

DO  660  J  =  1  ,  3 

GER1 21  3 
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660 

670 

680 

690 


700 

710 


1 

1 

2 

1 

2 

3 

4 

5 

6 
7 


1 

2 

3 

4 

5 

1 

2 

3 

4 

5 

6 


1 

2 


UGAir  'tJ)  =  0.0 
DO  660  K  =  1 ,  NGE1 

UGAIDD(J)  =  PGA1(J,K)  *  QGIDD(K)  +  UGA1DD,J) 

DO  670  1=1,3 

FAXI(I)  =  -  MW1  *  UGAIDD(I)  +  FAX1 ( I ) 

IF  (MUB1)  690,  710,  690 

CALL  TABSN1 (TABL1 ( 1 , 10) ,  SI,  BUI ( 1 ) ,  NTB1(10)) 

CALL  TABSN1 (TABL1 ( 1 , 1 1 ) ,  SI,  BUI ( 2 ) ,  NTB1 ( 1 1 ) ) 

CALL  TABSN1 (TABL1 ( 1 , 1 2) ,  SI,  BU1(3),  NTB1(12)) 

CALL  TABSN1 (TABL1 ( 1 , 1 3) ,  SI,  BL1 ( 1 ) ,  NTB1(13)) 

CALL  TABSN1 (TABL1 ( 1 , 14) ,  SI,  BL1(2),  NTB1{14)) 

CALL  TABSN1 (TABL1 ( 1 , 15) ,  SI,  BL1(3),  NTB1(15)) 

FBU1  =  0.0 

FBL1  =  0.0 

DO  700  I  =  1  ,  3 

FBU1  =  BUI  (I)  *  FAXKI)  +  FBU1 

FBL1  =  BL1(I)  *  FAXKI)  +  FBL1 

RETURN 

END 

SUBROUTINE  FOR  LANDING  GEAR  NO.  2  CALCULATIONS 
SUBROUTINE  GEAR2 

COMMON  Y(70),  DYDX{70),  FIRSTY(70),  P(2000), 
NTEGER(300),  TABL1( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  LT2,  LAGXA2 ,  KBULK,  KBF2 ,  KBG2 ,  NU2R, 

NUC2R,  MUG2,  MUR2 ,  MUB2 ,  MV1S2,  MV2S2,  MV3S2 ,  M01S2,  M02S2 , 
M03S2,  MOW2,  MW2 

DIMENSION  XN(3),  XT2{3),  XA2 ( 3 ) ,  XIA2(3),  XIA2D(3), 
LT2(3),  LAGXA2(3),  GA2 ( 3 ) ,  GXIA2(3),  GAMB(3,3),  GAMG2 ( 3 , 3 ) , 
GBAG2(3,3),  GBGG2(3,3),  GW2GB(3,3),  GWBAG2(3,3),  GAMW2 ( 3 , 3 ) , 
AGXIA2{3),  ALG2(3,3),  ALHG2(3,3),  PBA2 ( 3 , 8 ) ,  PGA2(3,2), 

VB(3),  VBD(3),  OMEGB(3),  OMEGBD(3),  ACCB(3),  QB(8),  QBD(8), 
QQBD(8),  QBDD(8),  QG2(2),  QG2D(2),  QQG2D(2),  QG2DD(2), 
UBA2DD(3),  UGA2DD(3),  FAX2 ( 3 ) ,  FG2 ( 3 ) ,  FG2H(3),  BU2 ( 3 ) , 
BL2(3),  ZQG2(2) 

DIMENSION  NTB1 (110) 


GER1214 
GER121 5 
GER1216 
GER1 21 7 
GER1218 
GER1219 
GER1 220 
GER1 221 
GER1 222 
GER1223 
GER1224 
GER1 225 
GER1226 
GER1 227 
GER1 228 
GER1 229 
GER1 230 
GER1 231 
GER1232 
GER2  1 
GER2  2 
GER2  3 
GER2  4 
GER2  5 
GER2  6 
GER2  7 
GER2  8 
GER2  9 
GER2  10 
GER2  1 1 
GER2  12 
GER2  13 
GER2  14 
GER2  15 
GER2  16 


EQUIVALENCE  (Y(1),  T) ,  (Y(2),  VB) ,  (Y(5),  D) ,  GER2  17 

(Y(6),  S),  (Y(7),  V),  (Y(8),  OMEGB) ,  (Y(11),  PHIP),  GER2  18 

(Y(12),  THETR),  (Y{13),  PSIR) ,  (Y(15),  S2D) ,  (Y(18),  S2),  GER2  19 

{Y(21),  OMW2),  (Y(24),  BETA2 ) ,  (Y(27),  BTAS2),  (Y(30),  DLSU2),  GER2  20 
(Y(33/,  DLSL2),  (Y(37),  QG2D) ,  (Y(43),  QG2 ) ,  (Y(47),  QBD) ,  GER2  21 

(Y(55) ,  QB)  GER2  22 

EQUIVALENCE  (DYDX(2),  VBD) ,  ( DYDX ( 5 ) ,  DD) ,  GER2  23 

(DYDX(6),  SD)  ,  (DYDX(7),  VD),  (DYDX(8),  OMEGBD) ,  GER2  24 

(DYDX(II),  PHIRD),  (DYDX(12),  THETRD) ,  (DYDX(13),  PSIRD) ,  GER2  25 

(DYDX(15),  S2DD),  {DYDX(18),  SS2D) ,  (DYDX(21),  OMW2D) ,  GER2  26 

(DYDX(24),  BETA2D),  (DYDX(27),  BTAS2D) ,  (DYDX(30),  DLSU2D) ,  GER2  27 

(DYDX(33),  DLSL2D),  (DYDX(37),  QG2DD) ,  (DYDX(43),  QQG2D) ,  GER2  28 

{DYDX(47),  QBDD),  (DYDX (55),  QQBD)  GER2  29 

EQUIVALENCE  (P(3),  XN) ,  (P(6),  KBULK),  (P(7),  DENOIL)GER2  30 
EQUIVALENCE  (P{51),  XT2 ) ,  (P(54),  XA2 ) ,  GER2  31 

{P(57),  WC23),  (P(58),  ETA2 ) ,  (P(59),  ZETA2 ) ,  (P(60),  MUB2 ) ,  GER2  32 
(P(61),  KBF2),  {P(62),  CBG2),  (P(63),  KBG2 ) ,  GER2  33 
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3 

4 

5 

6 

7 

8 

9 

1 

2 


1 

2 

3 


1 

1 


10 


20 


30 

50 


60 


70 


80 


(P(64)  , 
(P(68)  , 
(?(72)  , 
(P(76)  , 
(P(79)  , 
(P(83)  , 
(P(88)  , 

(P(522) 

(P(528) 


(P(719) 
(P(746) 
(P(  773) 


VOLH02),  (P(65),  AH2),  (P(66),  AA2 ) ,  (P(67),  A02 ) , 
CD2),  (P(69),  VOLS02),  (P(70),  AHS2),  (P(7i;,  ANSE2 ) 
ANSC2),  (P(73),  CDS2),  (P(74),  RW2 ) ,  (P(75),  MV1S2), 
MV2S2),  (P(77),  MV3S2),  (P(78),  M01S2), 

M02S2),  (P(80),  M03S2),  (P(81),  MOW2), 

ZQG2),  (P(85) ,VW20) ,  (P(86),  AP2AVG) ,  (P(87),  MUR2 ) , 
MW2),  {P(89),  CCOEF2) 

EQUIVALENCE  (P(518),  FS2 ) ,  (P(519),  FG2H) , 

,  FAX2),  (P(525),  PH2),  (P(526),  PA2 ) ,  (P(527) 

,  FFBU2),  {P(529),  FFBL2),  (P(530),  VW2 ) 

EQUIVALENCE  (P(571),  GAMB) ,  (P(580),  ACCB) 
EQUIVALENCE  (P(701),  GAMG2),  (P(710),  ALG2) 


PHS2) 


AIHG2 ) 
GBGG2 ) 


(P(728) 

(P(755) 


G/MW2) 

GW2GB) 


(P(737) 

(P(764) 


GBAG2) , 
GWBAG2 ) 


FG2),  {P(776 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
(P(951),  PBA3) 

EQUIVALENCE 
(NTEGER(20),  NSTYP2 ) 
EQUIVALENCE 
EQUIVALENCE 
(NTEGER(205) ,  NSU3 ) 

IF  (T)  10, 


,  LAGXA2) 
(P(782),  PGA2) 
{P(788),  XIA2D) 
(P(901),  PBA1), 


(P(926),  PBA2) 


(NTEGERdS),  NBE),  (NTEGER(17),  NGE2 ) 


(NTEGER(56) , 
{NTEGER(203) 

10,  20 


NTB1  ) 
NSU1  ) 


(NTEGER(204) ,  NSU2 ) 


S2, 
S2 , 
S2, 


XIA2( 1 ) 
XIA2(2) 
XIA2(3) 


NTB1 (51 ) ) 
NTB1 (52) ) 
NTB1 (53) ) 


FBa2  =  0.0 
FBL2  =0.0 
NSU2  =  1 

CALL  TABSN1 (TABL1 ( 1 , 51 ) 

CALL  TABSN1 (TABL1 ( 1 ,52) 

CALL  TABSN1 (TABL1 ( 1 ,53) 

DO  301=1,3 

LT2( I )  =  XN( I )  -  XT2( I ) 

GA2(I)  =  0.0 
DO  30  K  =  1  ,  3 

GA2(I)  =  GAMG2(K,I)  *  (XT2(K)  -  XA2(K))  +  GA2 ( I  ) 

DO  50  I  =  1,3 

GXIA2(I)  =  XIA2(I)  +  GA2(I) 


,0 


1  , 

0, 

1,  3 
ALG2 ( I 


DO  60  I 
AGXIA2( I ) 

DO  60  K 
AGXIA2{ I ) 

V2L  =  0.0 
V2QB  =0.0 
V2GA  =  0.0 
V2QG  =0.0 

IF  (NBE)  70,  100,  70 
DO  801=1,  NBE 

DO  80  J  =  1 ,  3 

K=74+3*I+J 
CALL  TABSN1 (TABL1 ( 1  ,K) 
DO  90  LC  =  1  ,  3 


K)  *  GXIA2(K)  AGXIA2(  I  ) 


S2,  PBA2(J,I),  NTBKK) 


GER2  34 
GER2  35 
GER2  36 
GER2  37 
GER2  38 
GER2  39 
GER2  40 
GER2  41 
GER2  42 
GER2  4  3 
GER2  44 
GER2  45 
GER2  4  6 
GER2  47 
GER2  48 
GER2  49 
GER2  50 
GER2  51 
GER2  52 
GER2  53 
GER2  54 
GER2  55 
,GER2  56 
GER2  57 
GER2  58 
GER2  59 
GER2  60 
GER2  61 
GER2  62 
GER2  63 
GER2  64 
GEP2  65 
GER2  66 
GER2  67 
GER2  68 
GER2  69 
GER2  70 
GER2  71 
GER2  72 
GER2  7  3 
GER2  74 
GER2  7  5 
GER2  76 
GER2  7  7 
GER2  78 
GER2  79 
GER2  80 
GER2  81 
GER2  82 
GER2  83 
GER2  84 
GER2  85 
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90 

100 

no 


120 


130 

140 

150 


160 

170 

180 


190 

200 


1 

1 

2 

3 

4 

210 

220 


230 

240 


250 

260 


+ 

+ 

+ 

+ 

+ 


DO  ,  0  LD  =  1  ,  NBE 

V2Q3  =  GBGG2(3,LC)  *  PBA2(LC,LD)  *  QB(LD)  +  V2QB 

IF  (NGE2)  110,  140,  110 

DO  120  I  =  1,  NGE2 

DO  120  J  =  1 ,  3 

K=68+3*I+J 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  S2 ,  PGA2(J,I),  NTBI(K)) 

DO  1 30  LC  =  1  ,  3 
DO  130  LD  =  1,  NGE2 

V2QG  =  GBAG2(3,LC)  *  PGA2{LC,LD)  *  QG2(LD)  +  V2QG 

DO  1 50  LC  =  1  ,  3 

V2L  =  GAMB(3,LC)  *  LT2(LC)  +  V2L 

V2GA  =  GBAG2(3,LC)  *  GXIA2(LC)  +  V2GA 

VW2  =  -  V  -  V2L  -  V2QB  -  V2GA  -  V2QG  -  WC23 

VTR2  =  VW2  -  VW20 

IF  (VTR2)  160,  170,  170 

CALL  TABSN1  ( TABLl ( 1 , 57 ) ,  VTR2 ,  FG2(3),  NTB1(57)) 
GO  TO  180 
FG2(3)  =  0.0 

CALL  TABSN1 (TABLl ( 1 ,54) ,  S2 ,  XIA2D(1),  NTB1(54)) 
CALL  TABSN1 (TABLl ( 1 ,55) ,  S2,  XIA2D(2),  NTB1(55)) 
CALL  TABSN1 (TABLl (1 ,56) ,  S2 „  XIA2D(3),  NTB1(56)) 
DO  190  I  =  1,  3 
LAC:L\2(I)  =  LT2(I)  +  AGXIA2(I) 

IF  (VTR2)  200,  260,  260 

RA21D  =  GW2GB(1,1)  *  VB( 1 )  +  GW2GB(1,2)  *  VB(2) 
GW2GB(1,3)  *  VB(3) 

RA22D  =  GW2GB(2,1)  *  (VB( 1 )  +  XIA2D( 1 )  *  S2D) 
GW2GB(2,2)  *  (VB(2)  +  XIA2D(2)  *  S2D) 

GW2GB(2,3)  *  (VB(3)  +  XIA2D(3)  *  S2D) 

GW2GB(2,1)  *  (OMEGB(2)  *  LAGXA2 ( 3 )  -  OMEGB(3)  *  LAGXA2 ( 2 ) ) 

GW2GB(2,2)  *  (OMEGB(3)  *  LAGXA2 ( 1 )  -  OMEGB(I)  *  LAGXA2 ( 3 ) ) 

GW2GB(2,3)  *  (OMEGB(l)  *  LAGXA2(2)  -  OMEGB(2)  *  LAGXA2 ( 1 ) ) 

IF  (NSU2  -  2)  210,  240,  210 
RFA21D  =  OMW2  *  (WC23  +  VW2 ) 

IF  (RA21D  +  RFA21D)  230,  230,  220 
NU2R  =  ATAN(RA22D  /  (RA21D  +  RFA21D)) 

SPR2  =  (RA21D  +  RFA21D)  /  RA21D 

CALL  TABSN1  ( TABLl ( 1 , 60 ) ,  SPR2 ,  MUG2 ,  NTB1(60)) 

FG2H(1)  =  -  MUG2  *  ABS(FG2(3))  *  COS(NU2R) 

FG2H(2)  =  -  MUG2  *  ABS(FG2(3))  *  SIN(NU2R) 

FG2H(3)  =  FG2(3) 

GO  TO  250 
NSU2  =  2 

NUC2R  =  ATAN(RA22D  /  RA21D) 

FG2H(1)  =  -  MUR2  *  ABS(FG2(3)) 

FC2  =  CCOEF2  *  57.29578  *  NUC2R  *  ABS(FG2(3)) 
FG2H(2)  =  -  FC2 


GER2  86 
GER2  87 
GER2  88 
GER2  89 
GER2  90 
GER2  91 
GER2  92 
GER2  93 
GER2  94 
GER2  95 
GER2  96 
GER2  97 
GER2  98 
GER2  99 
GER2100 
GER2101 
GER2102 
GER2103 
GER2104 
GER2105 
GER2106 
GER2107 
GER2108 
GER2109 
GER21 10 
GER21 1 1 
GER21 12 
GER2 1 1 3 
GER21 14 
GER21 1 5 
GER21 16 
GER21 17 
GER21 18 
GER21 19 
GER21 20 
GER2121 
GER2122 
GER21 23 
GER2124 
GER21 25 
GER2126 
GER2127 
GER21 28 
GER21 29 
GER21 30 
GER21 31 
GER21 32 
GER2 1 3  7 


FG2H(3)  =  FG2(3)  GER2134 
FG2(1)  =  GAMW2(1,1)  *  FG2H(  1  )  GAMW2  ( 2 , 1  )  *  FG2H(2)  GER2135 
FG2'2)  =  GAMW2(1,2)  *  FG2H( 1 )  +  GAMW2 ( 2 , 2 )  *  FG2H(2)  GER2136 
VOLH2  =  VOLH02  -  (AH2  -  AP2AVG)  *  S2  GER2137 
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CALL  TABSN1 (TABL1 ( 1 , 59) ,  S2 ,  PA2 ,  NTB1(59)) 

GER21 38 

CALL  TABSN1 (TABL1 ( 1 , 58 ) ,  S2,  AP2 ,  NTB1(58)) 

GER21 39 

AN2  =  A02  -  AP2 

GER2140 

PT2  =  -  KBULK  *  BETA2  /  VOLH2 

GER2141 

IF  (PT2)  270,  280,  280 

GER21 *2 

270 

PT2  =  0.0 

GER2143 

280 

PH2  =  PT2  -  PA2 

GER2144 

VEL2  =  SIGN(SQRT(2.0  *  ABS(PH2)  /  DENOIL),  PH2 ) 

GER2145 

VOLS2  =  VOLS02  +  AHS2  *  S2 

GER2146 

PTS2  =  -  KBULK  *  BTAS2  /  VC1S2 

GER21 47 

IF  {PT‘^2  )  290,  300  ,  300 

GER21 48 

290 

PTS2  =  0.0 

GER2149 

300 

IF  (NSTYP2  -  2)  310,  320,  31u 

GER21 50 

310 

PHS2  =  PTS2  -  PA2 

GER21 51 

GO  TO  330 

GER21 52 

320 

PHS2  =  PTS2  -  PT2 

GER21 53 

33C 

VELS2  =  SIGN (SORT (2.0  *  AB£lPHS2)  /  DENOIL),  PHS2 ) 

GER21 54 

IF  (PHS2)  340,  340,  350 

GER21 55 

340 

ANS2  =  ANSC2 

GER21 56 

GO  TO  360 

GER21 57 

350 

ANS2  =  ANSE2 

GER21 58 

360 

BTAS2D  =  CDS2  *  ANS2  *  VELS2  +  AHS2  *  S2D 

GER21 59 

IF  (MUB2)  530,  530,  370 

GER21 60 

370 

FFBU2  =  -  KBF2  *  DLSU2 

GER21 61 

FFBL2  =  -  KBF2  *  DLSL2 

GER2162 

FFBU2L  =  MUB2  *  ABS(FBU2) 

GER2163 

FFBL2L  =  MUB2  *  ABS(FBL2) 

GER21  64 

IF  (ABS(FFBU2)  -  FFBU2L)  390,  380,  380 

GER21 65 

380 

TEST1  =  FFBU2  *  S2D 

GER21 66 

IF  (TEST1)  400,  390,  390 

GER21 67 

390 

DLSU?n  =  S2D 

GER2168 

GO  TO  410 

GER2169 

400 

D19U2D  =0.0 

GER21 70 

DLSU2  =  -  SIGN(FFBU2L  /  KBF2  ,  FFBU2 ) 

GER21 71 

FFBU2  =  -  KBF2  *  DLSU2 

GER21 72 

410 

IF  (ABS(FFBL2)-FFBL2L)  430,  420,  420 

GER21 73 

420 

TEST2  =  FFBL2  *  S2D 

GER21 74 

IF  (TEST2)  440,  430,  430 

GER21 75 

430 

DLSL2D  =  S2D 

GER21 76 

GO  TO  530 

GER21 77 

140 

DLSL2D  =  0.0 

GEr(21  79 

DLSL2  =  -  SIC-  '(FFBL2L  /  KBF2  ,  FFBL2 ) 

GER:1 79 

FFBL2  =  -  KBF2  *  DLSL2 

GER2180 

530 

IF  {NSTYP2  -  2)  540,  550,  540 

GER2181 

540 

FS2  =  -  (PA2  -  14.7)  *  AA2  -  PH2  *  (AH2  -  AP2 ) 

GER2182 

1 

+  PHS2  * 

(AHS2  -  ANS2)  FFBU2  FFBL2 

GE..2183 

BETA2D  =  CD2*  AN2  *  VEL2  -  (AH2  -  AP2)  *  S2D 

GER2184 

GO  TO  560 

GER2185 

550 

FS2  =  -  (PA2  -  14.7)  *  AA2  -  PH2  *  (AH2  -  AP2  -  AHS2 

)GER2186 

1 

+  PHS2  * 

(AHS2  -  ANS2)  +  FFBU2  +  FFBL2 

GER2187 

BETA2o  =  CD2  *  AN2  *  VEL2  -  (AH2  -  AP2)  *  S2D 

GER2188 

1 

-  ANC2  • 

CDS2  *  VELS2 

GER2189 
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ALG2(2, I 
ALG2( 1 , I 
ALG2(2, I 
ALG2{3 , I 
XIA2D( I ) 
FG2(I)  * 
FG2{3)  * 


QBDD(K)  +  UBA2DD(J) 


IF  (S-)  570,  580,  580 
FS2  =  FS2  -  KBG2  *  S2  -  CBG2  *  S2D 
DO  590  I  =  1,  3 

FAX2(I)  =  -  MW2  *  (ALG2(1,I)  *  ACCB(1)  + 

)  *  ACCB(2)  +  ALG2(3,I)  *  ACC3(3)  + 

)  *  ( OMEGBD ( 2 )  *  LAGXA2 ( 3 )  -  OMEGBD ( 3 )  *  LAGXA2 ( 2 ) )  + 

)  *  (OMEGBD(3)  *  LAGXA2{1)  -  OMErDj( 1 )  *  LAGXA2 ( 3 ) )  + 

I  *  (OMEGBDd;  *  LAGXA2(2)  -  OMEGBD(2)  *  LAGXA2  {  1  )  )  + 

*  S2DD  -  386.09  *  GBAG2(3,I))  + 

GBAG2(1,I)  >  FG2(2)  GBAG2  (  2  ,  ^  '  + 

GBAG2(3,I) 

IF  (NBE)  600,  640,  600 
DO  6 1 0  J  =  1  ,  3 
UBA2DD{J)  =  0.0 
DO  61 0  K  =  1 ,  NBE 

UBA2DD(J)  =  PB^2(J,K)  *  QBDD(K)  +  UBA2DD(j) 

DO  6301=1,3 
F2B  =  0.0 
DO  -  '  K  =  1  ,  3 

F2B  =  aLHG2(I,K)  *  UBA2DD(K)  r  v2B 
FAX2(I)  =  -  MW2  *  F2B  +  FAX2 ( I ) 

IF  (NGE2)  650,  680,  650 
DO  660  J  =  1  ,  3 
UGA2DD^J)  =0,0 
DO  660  :'  =  1  ,  NGE2 

UGA2DD(J)  =  PGA2(J,K)  *  QG2DD(K)  +  UGA2DD(J) 

DO  670  I  =  1,  o 

FAX2{I)  =  -  MW2  *  UGa2DD(I)  +  FAX2 (I ) 

IF  (MUB2)  690,  710,  690 

CALL  TABSNKTABLK  1,62),  S2 ,  BU2(1),  NTB1(62)) 

CALL  TABSNKTABLK  1,63),  S2  ,  BU2  (  2  )  ,  NTB1(63)) 

CALL  TABSN1 (TABL1 ( 1 , 64 ) ,  S2,  BU2(3),  NTB1(64)) 

CALL  TABSNKTABLK  1,65),  S2,  BL2  (  1  )  ,  NTBK65)) 

CALL  TABSNKTABL1  (1 ,66),  S2,  BL2(2),  NTBK66)) 

CALL  TABSNKTABLK)  ,67)  ,  S2  ,  BL2  (  3  )  ,  NTBK671) 

FBU2  =0.0 


UGA2DD(j: 


FBU2  =0.0 

FBL2  =  0.0 

DO  700  1=1,3 

FBU2  =  BU2(I)  *  FAX2(I)  +  FBU2 

FBL2  =  BL2(I)  *  FAX2 ( I )  +  FBL2 

RETURN 

END 

SUBROUTINE  FOR  LANDING  GEAR  NO.  3  CALCULATIONS 
SUBRO'  TINE  GEAR3 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000) 
NTEGEROOO),  TABLK  40 , 1  1  0  )  ,  TABL2  ( 1  25 , 1  )  ,  Q(70) 

REAL  LT3,  LAGXA3 ,  KBULK,  KBF3,  KBG3,  NU3R 
NUC3R,  MUG3,  MUR3 ,  MUB3 ,  MV1S3,  MV.7S3,  MV3S3,  M01S3  M02S3 

M03S3,  MOW3,  MW3  ,  oj, 

dimension  XN(  3)  ,  XTK'3),  XA3(3),  XIA3(K,  XIA3D(3), 
LT3{3),  LAGXA3(3),  GA3 ( 3 ) ,  GXIA3(3),  GAMB(3,3)  UAMG3(3  3) 


CALCULATIONS 
FIRSTY(70),  P(2000), 


NUC3R, 

M03S3, 

LT3{3) 


GBAG3(3,3),  GBGG3{3,3),  GW3GB(3,3),  GWBAG3 { 3 , 3 ) ,  GAMW3 ( 3 , 3  )  , 


GER21 9" 
GER21 91 
GER2192 
nER21 93 
UER21 94 
GER21 95 
CER21 96 
GER21 97 
GER21 98 
GER2199 
GER2200 
GER2201 
GER2202 
GER2203 
GER2204 
GDR2205 
GER2206 
GER2207 
GER2208 
GER2209 
GER221  0 
GER221 1 
GER221  2 
GER221 3 
GER221  4 
GER2215 
GER221 6 
GER221  7 
GER2218 
'ER221 9 
GER2220 
GER22  .  1 
GER2222 
GER2223 
GER2224 
GER2225 
GER2226 
GER2227 
GER2228 
GER2229 
GER2230 
GER2231 
GER3  1 
GER3  2 
GER3  3 
GER3  4 
GER3  5 
GER3  6 
GER3  7 
GER3  8 
GER3  9 
GER3  10 
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3 

4 

5 

6 
7 


1 


8 

9 

1 

1 

2 


1 

2 


1 

1 


1 


10 


AGXi,J(3),  ALG3(:,3),  ALHG3(3,31,  PBA3 ( 3 , 8 ) ,  PGA3(3,2),  GER3 

VB(3),  VBD(3),  OMEGB(3),  OMEGBDv3),  ACCB(3),  QB(8),  QBD(8),  GER3 
QQBD{8),  QBDD(8).  QG3(2),  QG3D(2),  QQG3D(2),  QG3DD(3),  GER3 

UBA3DD{3),  UGA3DD(3),  FAX3(3),  FG3(3),  FG3H(3),  3U3(3),  GER3 

BL3(3),  2QG3(2)  GER3 

DIMENSION  NTB1 ( 1 10)  GER3 

EQUIVALENCE  (Y(1),  T),  (Yv2),  VB ) ,  (Y(5),  D) ,  GER3 

(Y{6),  S),  (Y(7),  V),  {Y(8),  OMEGB) ,  (Y(11),  PHIR),  GER3 

(Y(12),  THETR),  (Y(13),  PSIR),  (Y(16),  S3D) ,  (Y(19),  S3),  GER3 

(Y(22),  OMW3),  (Y(25),  BETA3 ) ,  (Y{28),  BTAS3),  (Y(31),  DLS‘  3 ) ,  GER3 
(Y(34),  DLSL3),  (Y{39),  QG3D) ,  {Y(45),  QG3),  (Y(47l,  QBD) ,  GER3 

(Y{55),  QB)  GER3 

EQUIVALENCE  (DYDX(2),  VBD)  ,  (D>^DX(5),  DD),  GER3 

(DYDXv6),  SD),  (D\DX{7),  VD),  (DYDX(P),  OMEGBD),  GER3 

(DYDXIll),  PHIRD),  (DYDX(12),  THETRD) ,  (DYDX(13),  PSIRD),  GER3 

(DYDX(16),  S3DD),  (DYDX(19),  SS3D) ,  {DYDX(22),  OMW3D),  GER3 

(DYDX(25),  BETA3D),  {DYDX(28),  BTAS3D  ),  ( DYDX ( 3 1 ) ,  DLSU3D),  GER3 
{DYDX(34),  DLSL3D),  (DYDX(39),  QG3DD) ,  (DYDX(45),  QQG3D) ,  GER3 

(DYDX(47),  QEJD),  (DYDX(55),  QQBD)  GER3 

EQUIVALENCE  (P(3),  XN)  ,  (P(6),  KBULK ) ,  (P(7),  DENOIL)GER3 

EQUIVALENCE  (P(91),  XT3 ) ,  (P(94),  XA3 ) ,  GER3 

(P(97),  WC33),  (Pl'I’S).  ETA3),  (P(99),  ZETA3 )  ,  (P{100),  MUB3),  GER3 
(P(101),  KBF3),  (P(102),  CBG3),  (P(103),  KBG3 ) ,  GER3 

{P(104),  VOLH03),  (P(105),  AH3 ) ,  (P(106),  AA3 ) ,  IP(107),  A03 ) ,  GER3 

(PdOS),  CD3),  (P(109),  VOLS03),  (P(n0),  AHS3),  GER3 

(P(111),  ANSE3),  (P(.12;,  ANSC3),  (P(113),  CDS3),  GER3 

(P(114),  RLd,  (0(115),  MV1S3),  (P(116),  MV2S3),  GER3 

(P(117),  MV3S31,  (P(na),  M0133),  (P(119),  M02S3),  GER3 

(P(120),  M03S3),  (P(121),  MOW3),  GER3 

(P(123),  ZQG3),  (P{125),  VW30),  (P(126),  AP3AVG) ,  GER3 

(P(127),  MUR3;,  (P(128),  MW3 ) ,  (P(129/,  CCOEF3)  GER3 

EQUIVALENCE  (?(535),  FS3),  (P( 535 ) , FG3H) ,  GER3 

(P(539),  fAX3),  (P(542),  PH3),  (P(547'  P«3 ) ,  (P(544),  PHS3),  GER3 

(P{545),  FFBU3),  (p;546),  FFBL3 ) ,  {P(547),  VW3 )  GER3 

EQUIVALENCE  (P(571),  GAMB) ,  1p(580),  ACCB)  GER3 

EQUIVALENCE  (P(801)  GAMG3 ) ,  (P(810),  ALG3),  GER3 

(P(819),  ALHG3),  (P(828),  GAMW3 ) ,  (P(337),  GBAG3 ) ,  GER3 

(P(846),  GBGG3),  (P(855),  GW3GB)  ,  (P(864),  GV.’BAG3 )  ,  GER3 

{P(873),  FG3),  (P(876),  LAGXA3)  GER3 

EQUIVALENCE  (P(882),  PC-A3 )  GER3 

EQUIVALENCE  1P(888),  XIA3D)  GER3 

EQUIVALENCE  ( P ( 90 1 ) , PBA 1 ) , ( P ( 9 26 ) , PBA2 ) ,  GER3 

1P(951 ) ,PBA3)  GER3 

EQUIVALENCE  (NTEGER(15),  NEE),  (NTEGER(18),  NGE3/,  GER3 
(NTEGER{21),  NSTYP3;  GEr,3 

EQUIVALENCE  (NTEGER(56),  NTB1)  GZR3 

EQUIVALENCE  ( NTEGFR( 203 ) ,  NSU1 ) ,  ( NTEGER ( 204 ) ,  NSU2),GER3 

(NTEGER(205) ,  NSU3)  GER3 

IF  (T)  10,  10,  20  GER3 

FBU3  =0,0  GER3 

rBL3  -  0.0  GER3 

NSU3  =  1  GER3 


1  1 
1  2 
1  3 
14 
1  5 
16 
1  7 
18 
1  9 
20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
51 
62 
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20 

CALL  :ABSN1 (TABL1 ( 1 ,51 ) ,  S3,  XIA3(1),  NTB1(51)) 

GER3  63 

CALL  TABSN1  (TABL1  (  1 ,52)  ,  S3,  XIA3(2),  NTBU52)) 

GER3  64 

XIA3(2)  =  -  XIA3'2) 

GER3  65 

CALL  TABSNKTABLK  1,53),  S3,  XIA3(3),  Ni'B1(53)) 

GER3  66 

DO  301=1,3 

GER3  67 

LT3( I )  =  XN{ I )  -  XT3( I ) 

GER3  68 

GA3(I)  =  0.0 

GER3  69 

DO  30  K  =  1  ,  3 

GER3  70 

30 

GA3(I)  =  GAMG3(K,I)  *  (XT3(K)  -  XA3(K))  +  GA3{I) 

GER3  71 

DO  50  I  =  1  ,  3 

GER3  72 

50 

GXIA3(I)  =  XIA3(I)  +  GA3(I) 

GER3  73 

DO  60  I  =  1  ,  3 

GER3  74 

AGXIA3{I)  =0.0 

GER3  75 

DO  60  K  =  1 ,  3 

GES3  76 

60 

AGXIASd)  =  ALG3(I,K)  *  GXIA3(K)  +  AGXIA3(I) 

GER3  77 

V3L  =  0.0 

GER3  78 

V3QB  =  0.0 

GER3  79 

V3GA  =0.0 

GER3  80 

V3QG  =0.0 

GER3  81 

IF  (NBE)  70,  110,  70 

GER3  82 

70 

DO  90  I  =  1 ,  NBE 

GER3  83 

DO  80  J  =  1 ,  3 

GER3  84 

K=74+3*I+J 

GER3  85 

80 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  S3,  PBA3(J,I),  NTBI(K)) 

GER3  86 

90 

PBA3(2, I )  =  -  PBA3(2, I) 

GER3  87 

DO  ’00  LC  =  1 ,  3 

GER3  88 

DO  1 00  LD  =  1 ,  NBE 

GER3  89 

1  00 

V3QB  =  GBGG3(3,LC)  PBA3(LC,LD)  *  QB(LD)  +  V3QB 

GER3  90 

1  1  0 

IF  (NGE3)  120,  160,  120 

GER3  91 

1  20 

DO  140  I  =  1,  NGE3 

GER3  92 

DO  1 30  J  =  1  ,  3 

GER3  93 

K  =  68-t-3*I+J 

GER3  94 

1  30 

CALL  TABSN1 (TABL1 ( 1 ,K) ,  S3,  PGA3(J,I),  NTB1 (K) ) 

GER3  95 

140 

PGA3(2,I)  =  -  PGA3(2,I) 

GER3  96 

DO  1 50  LC  =  1  ,  3 

GER3  97 

DO  150  LD  =  1,  NGE3 

GER3  98 

1  50 

V3QG  =  GBAG3(3,LC)  *  PGA3(LC,LD)  *  QG3(LD)  +  V3QG 

GER3  99 

160 

DO  170  LC  =  1 ,  3 

GER3100 

V3L  =  GAMB(3,LC)  *  LT3(LC)  +  V3L 

GER3101 

170 

V3GA  =  GBAG3(3,LC)  *  GXIA3(LC)  +  V3GA 

GER3102 

VW3  =  -  V  -  V3L  -  V3QB  -  V3GA  -  V3QG  -  WC33 

GER31C3 

VTR3  =  VW3  -  VW30 

GER3104 

IF  (VTR3)  180,  190,  190 

GER3105 

180 

CALL  TABSN1 (TABL1 { 1 ,57) ,  VTR3 ,  FG3 ( 3 ) ,  NTB1{57)) 

GER3106 

GO  TO  200 

GER3107 

190 

FG3(3)  =  0.0 

GER3108 

200 

CALL  TABSN1 (TABL1 { 1 ,54) ,  S3,  XIA3D( 1 ) ,  NTB1(54)) 

GER3109 

CALL  TABSN1 (TABL1 { 1 ,55) ,  S3,  XIA3D(2),  NTB1(55)) 

GER31 10 

CALL  TABSN1 (TABL1 ( 1 ,56) ,  S3,  XIA3D(3),  NTB1(56)) 

GER31 1  1 

XIA3D(2)  =  -  XIA3D(2) 

GER31 12 

DO  2101=1,3 

GER31 1 3 

210 

LAGXA3{I)  =  LT3(I)  +  AGXIA3(I) 

GER31 1 4 

104 
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GW3GB( 1 


+  GW3GB(2,2) 
+  GW3GB(2,3) 
+  GW3GB{2, 1 ) 
+  GW3GB(2,2) 
GW3GB<2, 3) 
IF 


OMEGB ( 1 ) 
OMEGB{2) 


^  VB{2) 
S3D) 


LAGXA3 ( 2 ) ) 
LAGXA3 ( 3 ) ) 
LAGXA3 ( 1 ) ) 


,  250,  240 
310  +  RFA31D) ) 

/  RA31D 

,  SPR3,  MUG3,  NTB1 (60) ) 
='G3(3)  )  *  COS(NU3R) 
='G3(3)  )  *  SIxN(NU3R) 


ABS(FG3{3)  ) 
,29578  *  NUC3R 


ABS{FG3(3) ) 


IF  {VTR3)  220,  280,  280 

RA31D  =  GW3GB(1,1)  *  VB(1)  +  GW3GB(1,2)  *  VB{2) 

3)  *  7B(3) 

RA32D  =  GW3GB(2,1)  *  (VB(1)  +  XIA3D( 1 )  *  S3D) 

2)  *  (VB(2)  +  XIA3D(2)  *  S3D) 

3)  *  (VB(3)  <IA3D(3)  *  S3D) 

1)  *  (OMEGB(2;  *  LAGXA3(3)  -  OMEGB(3)  *  LAGXA3 ( 2 ) ) 

2)  *  (OMEGB(3)  *  LAGXA3(1)  -  OMEGB(I)  *  LAGXA3 ( 3 ) ) 

3)  *  (OMEGB(I)  *  LAGXA3(2)  -  OMEGB{2)  *  LAGXA3 ( 1 ) ) 

IF  (NSU3  -  2)  230,  260,  230 

RFA31D  =  OMW3  *  (WC33  +  VW3 ) 

IF  (RA31D  +  RFA31D)  250,  250,  240 
NU3R  =  ATAN(RA32D  /  (RA31D  +  RFA31D)) 

SPR3  =  {RA31D  +  RFA31D)  /  RA31D 

CALL  TABSN1 (TABL1 ( 1 ,60) ,  SPR3 ,  MUG3 ,  NTB1(60)) 

FG3H{1)  =  -  MUG3  *  ABS(FG3(3))  *  COS(NU3R) 

FG3H(2)  =  -  MUG3  *  ABS(FG3(3))  *  SIxN(NU3R) 

FG3H(3)  =  FG3(3) 

GO  TO  270 
NSU3  =  2 

NUC3R  =  ATAN{RA32D  /  RA31D) 

FG3H(1)  =  -  MUR3  *  ABS(FG3{3)) 

FC3  =  CCOEF3  *  57.29578  *  NUC3R  *  ABS{FG3(3)) 
FG3H(2)  =  -  FC3 
FG3H(3)  =  FG3(3) 

FG3(1)  =  GAMW3(1,1)  *  FG3H(1)  +  GAMW3 ( 2 , 1 )  *  FG3H( 
FG3(2)  =  GAMW3(1,2)  *  FG3H(1)  +  GAMW3(2,2)  *  FG3H( 
VOLH3  =  VOLH03  -  (AH3  -  AP3AVG)  *  S3 
CALL  TABSN1 (TaBLI ( 1 ,59) ,  S3,  PA3 ,  NTB1(59)) 

CALL  TABSNKTABLI  (1  ,  58)  ,  S3,  AP3  ,  NTBl(58)) 

AN3  =  A03  -  AP3 

PT3  =  -  KBULK  *  BETA3  /  VOLH3 

IF  (PT3)  290,  300,  300 

PT3  =0.0 

PH3  =  PT3  -  PA3 

VEL3  =  SIGN(SQRT(2.0  *  ABS(PH3)  /  DENOIL),  PH3) 

VOLS3  =  VOLS03  +  AHS3  *  S3 

PTS3  =  -  KBULK  *  BTAS3  /  VOLS3 

IF  (PTS3)  310,  320,  320 

PTS3  =  0.0 

IF  (NSTYP3  -  2)  330,  340,  330 

PHS3  =  PTS3  -  PA3 

GO  TO  350 

PHS3  =  PTS3  -  PT3 

VELS3  =  SIGN(SQRTv2.0  *  ABS(PHS3)  /  DENOIL),  PHS3) 

IF  (PHS3)  360,  360,  370 

ANS3  =  ANSC3 

GO  TO  380 

ANS3  =  ANSE3 

&TAS3D  =  CDS3  *  ANS3  *  VELS3  +  AHS3  *  S3D 
IF  (MUB3)  550,  550,  390 
FFBU3  =  -  KBF3  *  DLSU3 


GAMW3 (2,1) 
GAMW3(2,2) 

*  S3 

3,  NTB1(59)) 
3,  NTB1(58)) 


*  FG3H(2) 

*  FG3H(2) 


CER31 1 5 
GER31 1 6 
GER31 1 7 
GER31 18 
GER31 19 
GER3120 
GER31 21 
GER31 22 
GER31 23 
GER31 24 
GER31 25 
GER31 26 
GER31 27 
GER31 28 
GER31 29 
GER31 30 
GER31 31 
GER31 32 
GER31 33 
GER31 34 
GER31 35 
GER31 36 
GER31 37 
GER31 38 
GER31 39 
GER3140 
GER3141 
GER3142 
GER3143 
GER3144 
GER3145 
GER3146 
GER3147 
GER3148 
GER31 49 
GER31 50 
GER31 51 
GER3152 
GER31 53 
GER3154 
GER31 55 
GER31 56 
GER31 57 
GER31 58 
GER31 59 
GER3160 
GER31 61 
GEP.3162 
GEA31 63 
GER3164 
GER3165 
GER3166 
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FFBL.  =  -  KBF3  *  DLSL3 

GER31 67 

FFBU3L  =  MUB3  *  ABS(FBU3) 

GER3168 

FFBL3L  =  MUB3  *  ABS(FBL3) 

GER3169 

IF  (ABS(FFBU3)  -  FFBU3L)  410,  400,  400 

GER31 70 

400 

TEST1  =  FFBU3  *  S3D 

GER3171 

IF  (TEST1)  420,  410,  410 

GER3172 

410 

DLSU3D  =  S3D 

GER31 73 

GO  TO  430 

GER3174 

420 

DLSU3D  =  0.0 

GER3175 

DLSU3  =  -  SIGN(FFBU3L  /  KBF3  ,  FFBU3) 

GER31 76 

FFBU3  =  -  KBF3  *  DLSU3 

GER31 77 

430 

IF  (ABS(FFBL3)  -  FFEL3L)  450,  440,  440 

GER3178 

440 

TEST2  =  FFBL3  *  S3D 

GER31 79 

IF  (TEST2)  460,  450,  450 

GER3180 

450 

DLSL3D  =  S3D 

GER3181 

GO  TO  550 

GER3182 

460 

DLSL3D  =  0.0 

GER3183 

DLSL3  =  -  SIGN(FFBL3L  /  KBF3 ,  FFBL3 ) 

GER3184 

FFBL3  =  -  KBF3  *  DLSL3 

GER3185 

550 

IF  (NSTYP3  -  2)  560.  570,  560 

GER3186 

560 

FS3  =  -  (PA3  -  14.7)  *  AA3  -  PH3  *  (AH3  -  AP3) 

GER3187 

1 

+  PHS3  *  (AHS3  -  ANS3)  +  FFBU3  +  FFBL3 

GER3188 

BETA3D  =  CD3  *  AN3  *  VEL3  -  (AH3  -  AP3)  *  S3D 

GER3189 

GO  TO  580 

GER3190 

570 

FS3  =  -  (PA3  -  14.7)  *  AA3  -  PH3  *  (AH3  -  AP3  -  AHS3)GER3191 

1 

+  PHS3  *  (AHS3  -  ANS3)  +  FFBU3  +  FFBL3 

GER3192 

BETA3D  =  CD3  *  AN3  *  VEL3  -  (AH3  -  AP3)  *  S3D 

GER3193 

1 

-  ANS3  *  CDS3  *  VELS3 

GER3194 

580 

IF  (S3)  590,  600.  600 

GER3195 

590 

FS3  =  FS3  -  KBG3  *  S3  -  CBG3  *  S3D 

GER3196 

600 

DO  6101=1,3 

GER3197 

610 

FAX3(I)  =  -  MW3  *  (ALG3(1,I)  *  ACCB(1)  + 

GER3198 

1 

ALG3(2,I)  *  ACCB(2)  +  ALG3(3,I)  *  ACCB(3)  + 

GER3199 

2 

ALG3(1,I)  *  (OMEGBD(2)  *  LAGXA3(3)  -  OMEGBD(3)  *  LAGXA3 ( 2 ) )  + 

GER3200 

3 

ALG3(2,I)  *  (OMEGBD(3)  *  LAGXA3(1)  -  OMEGBD( 1 )  *  LAGXA3 ( 3 ) )  + 

GER3201 

4 

ALG3(3,I)  *  (OMEGBD(I)  *  LAGXA3(2)  -  OMEGBD(2)  *  LAGXA3(1))  + 

GER3202 

5 

XIA3D(I)  *  S3DD  -  386.09  *  GBAG3(3,I))+ 

GER3203 

6 

FG3(1)  *  GBAG3(1,I)  +  FG3 ( 2 )  *  GBAG3(2,I)  + 

GER3204 

7 

FG3(3)  *  GBAG3(3,I) 

GEP3205 

IF  (NBE)  620,  660,  620 

GER3206 

620 

DO  630  J  =  1  ,  3 

GER3207 

UBA3DD(J)  =  0.0 

GER3208 

DO  630  K  =  1 ,  NBE 

GER3209 

630 

UBA3DD(J)  =  PBA3(J,K)  *  QBDD(K)  +  UBA3DD(J) 

GER321 0 

DO  650  I  =  1  ,  3 

GER321  1 

F3B  =  0.0 

GER3212 

DO  640  K  =  1 ,  3 

GER321  3 

640 

F3B  =  ALHG3(I,K)  *  UBA3DD(K)  +  F3B 

GER3214 

650 

FAX3(I)  =  -  MW3  *  F3B  +  FAX3(I) 

GER321  5 

660 

IF  (NGE3)  670,  700,  670 

GER3216 

670 

DO  680  J  =  1 ,  3 

GER321 7 

UGA3DD(J)  =  0.0 

GER321  8 
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680 

690 

700 

710 


720 

730 


1 


1 


1 


1 


1 

2 

1 

2 


10 


DO  680  K  =  1,  NGE3 

UGA3DD{J)  =  PGA3(J,K)  *  QG3DD(K)  +  UGA3DD(J) 

DO  690  1=1,3 

FAX3(I)  =  -  MW3  *  UGA3DD(I)  +  FAX3(I) 

IF  (MUB3)  710,  730,  710 

CALL  TABSN1 (TABLI ( 1 ,62) ,  S3,  BU3(1),  NTB1(62)) 

CALL  TABSN1 (TABL1 ( 1 ,63) ,  S3,  BU3{2),  NTB1(63)) 

BU3(2)  =  -  BU3(2) 

CALL  TABSN1 (TABLI ( 1 ,64) ,  S3,  BU3 ( 3 ) ,  NTB1(64)) 

CALL  TABSN1 (TABLI ( 1 ,65) ,  S3,  BL3(1),  NTB1(65)) 

CALL  TABSN1 (TABLI ( 1 ,66) ,  S3,  BL3(2),  NTB1(66)) 

BL3(2)  =  -  BL3(2) 

CALL  TABSN1 (TABLI ( 1 ,67) ,  S3,  BL3(3),  NTB1(67)) 

FBU3  =  0.0 

FBL3  =  0.0 

DO  720  1=1,3 

FBU3  =  BU3(I)  *  FAX3(I)  +  FBU3 

FBL3  =  BL3(I)  *  FAX3 ( I )  +  FBL3 

RETURN 

END 

SUBROUTINE  HOOK 
DIMENSION  FH(3) 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 
NTEGER(300),  TABLI ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

EQUIVALENCE  (P(551),  FH) 

FH( 1 )  =  0.0 
FH(2)  =  0,0 
FH(3)  =  0.0 
RETURN 
END 

SUBROUTINE  FOR  CALCULATING  THE  ARRESTING  HOOK  FORCE 
FOR  SYMMETRICAL  ARRESTMENT 
SUBROUTINE  HOOKS 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 
NTEGER(300),  TA3L1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  MV1V1,  LHV,  LHV2,  LH 

DIMENSION  XN( 3) ,  XH(3),  LH(3),  XHPO ( 3 ) ,  GAMB(3,3), 

FH(  3  ) 

DIMENSION  NTB1 (110) 

EQUIVALENCE  (Y(1),  T) ,  (Y(5),  D) ,  (Y(6),  S), 

(Y(7) ,  V) ,  (Y(12) ,  THETR) 

EQUIVALENCE  (DYDX(5),  DD) 

EQUIVALENCE  (P(3),  XN) ,  (P(131),  XH),  (P(134),  LHV), 
(P(136),  PHIHKO),  (P(139),  DBAR) ,  (P(141),  VS), 

(P(142),  VKPTC),  (P(144),  RUNMAX) ,  (P(151),  MV1V1 ) 

EQUIVALENCE  (P(551i,  FH) ,  (P(554),  RUNOUT), 

(P(556),  VH),  (P(557),  PHIHKR) ,  (P(558),  ALPHCR) , 

(P(559),  FH1 ) 

EQUIVALENCE  (P(571,,  GAMB) 

EQUIVALENCE  (NTEGER(56),  NTB1 ) 

IF  (T)  10,  10,  40 
DO  20  I  =  1  ,  3 


GER3219 
GER3220 
GER3221 
GER3222 
GER3223 
GER3224 
GER3225 
GER3226 
GER3227 
GER3228 
GER3229 
GER3230 
GER3231 
GER3232 
GER3233 
GER3234 
GER3235 
GER3236 
GER3237 
GER3238 
HOKZ  1 
HOKZ  2 
HOKZ  3 
HOKZ  4 
HOKZ  5 
HOKZ  6 
HOKZ  7 
HOKZ  8 
HOKZ  9 
HOKZ  10 
HOKS  1 
HOKS  2 
HOKS  3 
HOKS  4 
HOKS  5 
HOKS  6 
HOKS  7 
HOKS  8 
HOKS  9 
HOKS  10 
HOKS  1 1 
HOKS  12 
HOKS  1 3 
HOKS  14 
HOKS  15 
HOKS  16 
HOKS  17 
HOKS  18 
HOKS  IS 
HOKS  20 
HOKS  21 
HOKS  22 
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LH(i:  XN{I)  -  XHd) 

AMASS  =  MV1V1 

PHIKKR  =  PHIHKO  /  57.29578 
SINHO  =  SIN(PHIHKR) 

COSHO  =  COS(PHIHKR) 


LH(3) 


XHPO  ( 1  )  =  -  LF 
XHP0(2)  =0.0 
XHPO (3)  =  LHV 
DDHPO  =  0.0 
DO  30  I  =  1  , 
DDHPO  =  (LH(I) 
DHPO  =  D  +  DDK 
DHPTC  =  DHPO  + 
LHV2  =  LHV  **2 
MHOOK  =  1 
VH  =  V  +  LH{ 1 ) 
GAMB (3,3) 

IF  (MHOOK  -  2) 
VHC  =  LHV  *  (- 
IF  (VHC  +  VH  + 


=  -  LHV  *  SINHO 

=  0.0 

=  LHV  *  COSHO 

0.0 

1  =  1,3 

(LH(I)  +  XHPO(I))  *  GAMBd  ,1) 
+  DDHPO 
DHPO  +  DEAR 


COSHO 


DDHPO 


*  GAM3(3,1)  +  LH(2)  *  GAMB (3, 2) 
50,  100,  120 


VHC  =  LHV  *  (-  SINHO  *  GAMB(3,1)  +  COSHO  *  GAMB(3,3) 
IF  (VHC  +  VH  +  VHPTC)  80,  60,  60 
AA  =  (GAMB(3,1)  /  GAMB(3,3))  **2  +  1.0 
BB  =  2.0  *  VH  *  GAMB (3,1)  /  GAMB (3, 3)  **2 
+  2.0  *  GAMB(3,1)  *  VHPTC  /  GAMB(3,3)  **2 
CC  =  (VH  /  GAMB(3,3))  **2  -  LHV2 
+  2.0  *  VH  *  VHPTC  /  GAMB (3, 3)  **2 
+  VHPTC  **2  /  GAMB(3,3)  **2 

A  =  (-  BB  -  SQRT(BB  -  4 . 0  *  AA  *  CC ) )  / 

(2.0  *  AA) 

B  =  -  (VH  +  VHPTC  +  A  *  GAMB(3,1))  /  GAMB(3,3) 

PHIHKR  =  ACOS(B  /  SQRT(A  **2  +  B  **2)) 

DHP  =  D  +  (LH(1)  -  LHV  *  SIN(PHIHKR) )  *  GAMB(1,1) 

+  LH(2)  *  GAMBd, 2)  +  (LH(3)  +  LHV  *  COS(PHIHKR))  *  GAMB(1,3) 
IF  (DHP  -  DHPTC  -  1.0)  120,  120,  70 
VGCON  =  DD 
MHOOK  =  2 


GO  TO  100 

DHP  =  D  +  (LH(1)  -  LHV  *  SINHO)  *  GAMB(1,1) 

LH ( 2 )  *  GAMB (1,2)  +  ( LH ( 3 )  +  LHV  *  COSHO )  *  GAMB (1,3) 

IF  (DHP  -  DHPTC  -  1.0)  120,  90,  90 
MHOOK  =  3 
GO  TO  110 

DH  =  D  +  LHd)  *  GAMB(1,1)  +  LH(2)  *  GAMB(1,2) 

LH(3)  *  GAMBd  ,3) 

HYP  =  SQRT((DH  -  DHPTC)**2  +  ( -VH  -  VS)  **2) 

RUNOUT  =  HYP  -  LHV 
RUNNON  =  RUNOUT  /  RUNMAX 

CALL  TABSN1 (TABL1 ( 1 , 1 10) ,  RUNNON,  FH1NON,  NTBI(IIO)) 
PHI  =  FH1NON  *  VGCON  *  VGCON  *  AMASS  /  RUNMAX 
TANACR  =  (-  VH  -  VS)  /  (DH  -  DHPTC) 

ALPHCR  =  ATAN( TANACR) 

PHIHKR  =  1.570796  -  ALPHCR  +  THETR 
FHd)  =  -  FH1  *  COS(ALPHCR) 


LH(2)  *  GAMB( 1,2) 
(-VH  -  VS)  **2) 


HOKS  23 
HOKS  24 
HOKS  25 
HOKS  26 
HOKS  27 
HOKS  28 
HOKS  29 
HOKS  30 
HOKS  31 
HOKS  32 
HOKS  33 
HOKS  34 
HOKS  35 
HOKS  36 
HOKS  37 
HOKS  38 
HOKS  39 
HOKS  40 
)HOKS  41 
HOKS  42 
HOKS  43 
HOKS  44 
HOKS  45 
HOKS  46 
HOKS  47 
HOKS  48 
HOKS  49 
HOKS  50 
HOKS  51 
HOKS  52 
HOKS  53 
HOKS  54 
HOKS  55 
HOKS  56 
HOKS  57 
HOKS  58 
HOKS  59 
HOKS  60 
HOKS  61 
HOKS  62 
HOKS  63 
HOKS  64 
HOKS  65 
HOKS  66 
HOKS  67 
HOKS  68 
HOKS  69 
HOKS  70 
HOKS  71 
HOKS  72 
HOKS  73 
HOKS  74 
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FH(2)  =  0.0 

HOKS 

75 

FH(3)  =  FH1  *  SIN(ALPHCR) 

HOKS 

76 

GO  TO  120 

HOKS 

77 

1  10 

FHd  )  =  0.0 

HOKS 

78 

FH(2)  =  0.0 

HOKS 

79 

FH(3)  =  0.0 

HOKS 

80 

1  20 

RETURN 

HOKS 

81 

END 

HOKS 

82 

SUBROUTINE  FOR  CALCULATING  THE  ARRESTING  HOOK  FORCE 

HOKU 

1 

FOR  UNSYMMETRICAL  ARRESTMENT 

HOKU 

2 

SUBROUTINE  HOOKUS 

HOKU 

3 

COMMON  Y(70),  DYDX(70),  F1RSTY(70),  P(2000), 

HOKU 

4 

1 

NTEGER(300),  TABLI (40, 1 10) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

HOKU 

5 

REAL  MV1V1,  LHV,  LHP,  LLP,  LH,  LHV2 ,  LL,  LR,  LL1 , 

HOKU 

6 

1 

KBAR,  MUC 

HOKU 

7 

DIMENSION  XN( 3) ,  XH(3),  LH(3),  XHPO ( 3 ) ,  GAMB(3,3), 

HOKU 

8 

1 

FH(3) 

HOKU 

9 

DIMENSION  NTB1 (110) 

HOKU 

10 

EQUIVALENCE  (Y( 1 ) ,  T) 

HOKU 

1 1 

EQUIVALENCE  (Y(5),  D) ,  (Y(6),  S),  (Y(7),  V) 

HOKU 

12 

EQUIVALENCE  (DYDX(5),  DD) 

HOKU 

1  3 

EQUIVALENCE  (P(3),  XN) ,  (P(131),  XH) ,  (P(134),  LHV), 
LLP),  (P(136),  PHIHKO),  (P(137),  LHP),  (P(138),  KBAR), 
DBAR),  (P(14C),  BC),  (P(141),  VS),  (P(U2),  VHPTC)  , 

HOKU 

14 

1 

(P(135) , 

HOKU 

15 

2 

(P(139) , 

HOKU 

16 

3 

(P(143) , 

MUC),  (P(144),  RUNMAX),  (P(151),  MV1V1 ) 

HOKU 

1  7 

EQUIVALENCE  (P(551),  FH),  {P(554),  RUNOUT), 

HOKU 

18 

1 

(P{555) , 

SH),  (P(556),  VH) ,  (P(557),  PHIHKR) , 

HOKU 

19 

2 

(P(558) , 

ALPHCR),  (P(559),  FH1 ) 

HOKU 

20 

EQUIVALENCE  (P(571),  GAMB) 

HOKU 

21 

EQUIVALENCE  (NTEGER(56),  NTB1 ) 

HOKU 

22 

IF  (T)  10,  10,  40 

HOKU 

23 

10 

DO  20  I  =  1  ,  3 

HOKU 

24 

20 

LH( I )  =  XN( I )  -  XH( I ) 

HOKU 

25 

AMASS  =  MV1V1 

HOKU 

26 

PHIHKR  =  PHIHKO  /  57.29578 

HOKU 

27 

SINHO  =  SIN(PHIHKR) 

HOKU 

28 

COSHO  =  COS (PHIHKR) 

HOKU 

29 

XHPO(l)  =  -  LHV  *  SINHO 

HOKU 

30 

XHP0(2)  =  0.0 

HOKU 

31 

XHP0(3)  =  LHV  *  COSHO 

HOKU 

32 

DDHPO  =0.0 

HOKU 

33 

DO  30  I  =  1  ,  3 

KOKU 

34 

30 

DDHPO  =  (LH(I)  +  XHPO(I))  *  GAMB(1,I)  +  DDHPO 

HOKU 

35 

DHPO  =  D  +  DDHPO 

HOKU 

36 

DHPTC  =  DHPO  +  DBAR 

HOKU 

37 

LHV2  =  LHV  **2 

HOKU 

36 

ERR01  =  BC  *  0.00025 

HOKU 

39 

ERR02  =  ERR01 

HUKU 

40 

GUESS1  =  BC  *  0.005 

HOKU 

41 

GUESS 2  =  GUESS 1 

HOKU 

42 

MHOOK  =  1 

HOKU 

43 

40 

VH  =  V  +  LH(1)  *  GAMB(3,1)  +  LH(2)  *  GAMB(3,,  2) 

HOKU 

44 
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1 

+ 

LH(3) 

★ 

GAMB  (  ,  3  ) 

HOKU 

45 

IF  (MHOOK  -  2)  50,  100,  350 

HOKU 

46 

50 

VHC  =  LHV  *  (-  SINHO  *  GAMB(3,1)  +  COSHO  *  GAM3(3 

, 3 ) ) HOKU 

47 

IF  (VHC  +  VK  +  VHPTC)  80,  60,  60 

HOKU 

48 

60 

AA  -  (GAMB(3,1)  /  GAMB{3,3))  **2  +  1.0 

HOKU 

49 

BB  =  2.0  *  VH  *  GAMB(3,1)  /  GAMB(3,3)  **2 

HOKU 

50 

1 

2.0  * 

GAMB(3,1)  *  VHPTC  /  GAMB(3,3)  **2 

HOKU 

51 

CC  =  (VH  /  GAMB(3,3))  *^2  -  LHV2 

HOKU 

52 

1 

+ 

2,0  * 

VH  *  VHPTC  /  GAM3(3,3)  **2 

HOKU 

53 

2 

+ 

VHPTC 

**2  /  GAMB(3.3)  **2 

HOKU 

54 

A  =  (-  BB  -  SQRT(BB  **2  -  4.0  AA.  *  CO)  / 

HOKU 

55 

1 

(2 

:.0  * 

AA) 

HOKU 

56 

B  =  -  (VH  +  VHPTC  +  A  *  GAMB(3,1))  /  GAMB(3,3) 

HOKU 

57 

PHIHKR  =  ACOS(B/  SQRT(A  **2  +  3  **2)) 

HOKU 

58 

DHP  =  D  +  (LH(1)  -  LHV  SIN(PHIHKR))  *  GAMB(1,1) 

HOKU 

59 

1 

+ 

LH(2) 

* 

GAMBd, 2)  -t-  (LH(3)  +  LHV  *  COS(PHIHKR))  *  GAMBd, 

3 )  HOKU 

60 

IF  (DHP  -  DHPTC  -  1.0)  350,  350,  70 

HOKU 

61 

70 

VGCON  =  DD 

HOKU 

62 

D1  =  LHd  )  +  A 

HOKU 

63 

D2  =  LH(2) 

HOKU 

64 

D3  =  LH(3)  +  B 

HOKU 

65 

YHP  =  S  +  D1  *  GAMB(2,1)  +  D2  *  GAMB (2, 2) 

HOKU 

66 

1 

+ 

D3  * 

GAMB(2,3) 

HOKU 

67 

KBAR  =  2.0  *  YHP 

HOKU 

68 

LL1  =  BC  +  KBAR  /  2.0 

HOKU 

69 

MHOOK  =  2 

HOKU 

70 

B11  =  LLP  *  COS(PHIHKR) 

HOKU 

71 

GO  TO  100 

HOKU 

72 

80 

DHP  =  D  +  (LHd)  -  LHV  *  SINHO)  *  GAMBd,  1) 

HOKU 

73 

1 

LH(2) 

* 

GAMBd,  2)  +  (LH(3)  +  LHV  *  COSHO)  *  GAMBd,  3) 

HOKU 

74 

IF  (DHP  -  DHPTC  -  1.0)  350,  90,  90 

HOKU 

75 

90 

MHOOK  =  3 

HOKU 

76 

GO  TO  330 

HOKU 

77 

100 

DH  =  D  +  LHd)  *  GAMB(1,1)  +  LH(2)  *  GAMBd, 2) 

HOKU 

78 

1 

+ 

LH(3) 

* 

GAMB (1,3) 

HOKU 

79 

SH  =  S  +  LHd)  *  GAMB(2,1)  +  LH(2)  *  GAMB  (2, 2) 

HOKU 

80 

1 

+ 

LH(  3) 

★ 

GAMB (2,3) 

HOKU 

81 

BLOW  =  -12000.0 

HOKU 

62 

BUP  =  12000.0 

HOKU 

83 

DO  210  I  =  1,  100 

HOKU 

84 

B1  =  B11 

HOKU 

85 

A1  =  -SQRT(ABS(LLP  **2  -  B1  **2)) 

HOKU 

86 

B2  =  -  VH  -  A1  *  GAMB (3,1)  -  B1  *  GAMB (3, 3)  -  VS 

HOKU 

87 

A2  =  -  (DH  -  DHPTC)  -  A1  *  GAMBd  ,  1  )  - 

HOKU 

88 

1 

B1  *  GAMBd  ,3) 

HOKU 

89 

B11  =  (GAMBd, 3)  *  A1  *  A2  +  GAMB(3,3)  *  *  B2 ) 

HOKU 

90 

1 

/ 

( GAMB ( 1  , 

d )  *  A2  +  GAMB( 3, 1 )  *  B2) 

HOKU 

91 

IF  (ABS(B1  -  BID  -  ERROI)  230,  230,  1  10 

HOKU 

92 

110 

IF  (RUNOUT  -  60.0)  120,  120,  200 

HOKU 

93 

120 

IF  (B1  -  B1 1 )  130,  130,  140 

HOKU 

94 

130 

BUPT  =  B 1 1 

HOKU 

95 

BLOWT  =  B1 

HOKU 

96 

110 
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GO  TO  150 

HOKU  97 

140 

BUPT  =  B1 

HOKU  98 

BLOWT  =  B1 1 

HOKU  99 

150 

IF  (BUPT  -  BUP)  160,  160,  170 

HOKU100 

160 

BUP  =  BUPT 

HOKU101 

170 

IF  (BLOWT  -  BLOW)  190,  180,  180 

HOKU 102 

180 

BLOW  =  BLOWT 

HOKU103 

190 

B11  =  (BUP  +  BLOW)  /  2.0 

HOKU104 

GO  TO  210 

HOKU105 

200 

B1 1  =  (2.0  *  B1  +  B1 1 )  /  3.0 

HOKU 106 

210 

CONTINUE 

HOKU107 

WRITE  (6,220)  B1  1  ,  B1 

HOKU 108 

220 

FORMAT 

(10X,  31HERROR  DETECTED  IN  HOOKUS ,  B1 1  =,  E20.9, 

HOKU109 

1 

6H  B1 

=,  E20.9) 

HOKU 1 1 0 

230 

PHIHKR  =  ACOS(B1  /  SQRT(A1  **2  +  B1  **2)) 

HOKU1 1 1 

XIH  =  SQRT  (A2  **2  +  B2  **2) 

HOKU1 1 2 

ETAH  -  SH  +  A1  *  GAMB(2,1)  ^  B1  *  GAME (2, 3) 

HOKU1 1 3 

CALL  ITERKLLI,  BC,  ETAH,  XIH,  LHP,  GUESS  1  ,  KBAR, 

HOKU1 14 

1 

ERR02 , 

ALPHLR,  LL,  ALPKRR,  COSALR,  SINALR,  SINARR,  EPSIH, 

HOKU1 1 5 

2 

EPSIC, 

LR) 

HOKU1 16 

EXPT  =  EXP(MUC  *  (ALPHLR  -  ALPHRR) ) 

HOKU1 1 7 

RUNOUT  =  LL  *  SINALR 

HOKU1 18 

RUNNON  =  RUNOUT  /  RUNMAX 

HOKU’ 19 

CALL  TABSN1 (TABL1 ( 1 , 1 10) ,  RUNNON,  FHINON,  NTBI(IIO)) 

HOKU120 

FH1  =  FHINON  *  VGCON  *  VGCON  *  AMASS  /  RUNMAX 

HOKU121 

IF  (EPSIH)  250,  250,  240 

HOKU 122 

240 

TR  =  FH1  /  (EXPT  *  SINiALPHLR)  +  SIN(ALPHRR) ) 

HOKU1 23 

TL  =  TR  *  EXPT 

HOKU 1 24 

GO  TO  260 

HOKU125 

250 

TL  =  FH1  /  (SIN(ALPHLR)  +  EXPT  *  SIN(ALPHRR)) 

HOKUi 26 

TR  =  TL  *  EXPT 

HOKU1 27 

260 

FHM  =  SQRT(TR  **2  +  TL  **2  +  2.0  *  TR  *  TL 

HOKUI 28 

1 

*  COS( 

2.0  *  EPSIC)) 

HOKUI 29 

SINEHL  =  (TL  -  TR)  *  SIN(EPSIC)  /  FHM 

HOKUI 30 

EPSHLR  =  ABS(ATAN( SINEHL  /  SQRT (1.0  -  SINEHL  **2))) 

HOKUI 31 

IF  (ABS(EPSIH)  -  EPSHLR)  310,  310,  270 

HOKUI 32 

270 

IF  (EPSIH)  280,  280,  290 

HOKUI 33 

280 

EPSIH  =  -  EPSHLR 

HOKUI 34 

GO  TO  300 

HOKUI 35 

290 

EPSIH  =  EPSHLR 

HOKUI 36 

300 

CALL  ITER2(LL1,  BC,  ET^-l,  XIH,  LHP,  GUESS 2 ,  KBAR, 

HOKUI 37 

1 

ERR02 , 

ALPHLR,  LL,  ALPHRR,  COSALR,  SINALR,  SINARR,  EPSIH, 

HOKUI 38 

2 

EPSIC, 

LR) 

HOKUI 39 

GO  TO  320 

HOKUI 40 

310 

SINAER  =  SIN( ALPHLR  +  EPSIC  -  EPSIH. 

HOKUI 41 

COSAER  =  COS (ALPHLR  +  EPSIC  -  EPSIH) 

HOKUI 42 

FHM  =  FH1  /  SINAER 

HOKUI 4 3 

FHY  =  FHM  *  COSAER 

HOKUI 44 

COSARR  =  COS (ALPHRR) 

HOKU  1  4  =3 

H3  =  FH1  *  COSARR  +  FHY  *  SINARR 

HOKUI 46 

H4  =  COSARR  *  SINALR  +  COSALR  *  SINARR 

HOKUI 47 

TL  =  H3  /  hi 

HOKUI 48 
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TR  =  7H'  -  TL  *  SINALR)  / 

SINARR 

HOKU149 

320 

ALPHCR  =  ATAN(-  32  /  A2 ) 

HOKU1 50 

SINACR  =  SIN(ALPHCR) 

HOKU1 51 

COSACR  =  COS ( ALPHCR ; 

HOKU1 52 

SINAER  =  SIN(ALPHLR  +  SPSIC  -  EPSIH) 

HOKU1 53 

COSAER  =  COS(ALPHLR  +  EPSIC  -  EPSIH' 

HOKU1 54 

FH(1)  =  -  SINAER  *  COSACR 

*  FHM 

HOKU1 55 

FH(2)  =  -  COSAER  *  FHM 

HOKU1 56 

FH(3)  =  SINAER  *  SINACR  * 

FHM 

HOKU1 57 

GO  TO  350 

HOKU1 58 

330 

FH( 1 )  =  0.0 

HOKU159 

FH(2)  =  0.0 

HOKU1S0 

FH(3)  =  0.0 

HOKU1 61 

350 

RETURN 

HOKU162 

END 

HOKU163 

SUBROUTINE  ITER1  ( ALi."  ,  ABC 

:,  AETAH,  AXIH,  ALHP, 

ITR1  1 

1 

AUESS1 ,  AK3AR,  AER?02 ,  ALFLR,  ALL,  ALFRR,  AOSALR,  AINALR, 

ITR1  2 

2 

AINARR,  APSIH,  APSIC,  ALR) 

ITR1  3 

DOUBLE  PRECISION  LL1 ,  BC, 

ETAH,  XIH,  LHP,.GUESS1, 

ITR1  4 

1 

KBAR,  ERR02,  ALPHLR,  ALPHRR,  COSALR, 

SINALR,  SINARR 

ITR1  5 

DOUBLE  PRECISION  LL,  LEN, 

AAA,  BBB,  CCC,  AQ 

,  bq, 

ITR1  6 

1 

CQ,  EASY,  TANALR,  TANARR,  LR.  AJANE 

ITR1  7 

DOUBLE  PRECISION  EPSIC,  EPSIH,  SB,  CB,  STH, 

CTH, 

ITR1  8 

1 

SEH,  CEH 

ITR1  9 

LL1  =  ALL1 

ITR1  10 

BC  =  ABC 

ITR1  11 

ETAH  =  AETAH 

ITR1  12 

XIH  =  AXIH 

ITR1  13 

LHP  =  ALHP 

ITR1  14 

GUESS 1  =  AUESS1 

ITR1  15 

KBAR  =  AKBAR 

ITR1  16 

ERR02  =  AERR02 

ITR1  17 

AJANE  =  1 . ODO 

ITR1  18 

DO  60  I  =  1,  100 

ITR1  19 

LL  =  LL1 

ITR1  20 

LEN  =  DSQRT((BC  +  ETAH)  **2  +  XIH  **2) 

ITR1  21 

IF  (LEN  -  (LL1  +  LHP) )  20, 

10,  10 

ITR1  22 

10 

LL  =  LEN  -  LHP  +  GUESS!  / 

AJANE 

ITR1  23 

AJANE  =  AJANE  +  1.0DO 

ITR1  24 

20 

AAA  =  2. ODO  *  (BC  +  ETAH) 

*  LL 

ITR1  25 

BBB  =  2. ODO  *  XIH  *  LL 

ITR1  26 

CCC  =  LHP  **2  -  XIH  **2  - 

vBC  +  ETAH)  **2  - 

LL  **2 

ITR1  27 

AQ  =  AAA  **2  +  BBB  **2 

ITR1  28 

BQ  =  2. ODO  *  BBB  *  CCC 

ITR1  29 

CQ  =  CCC  **2  -  AAA  **2 

ITR1 

EASY  =  BQ  **2  -4. ODO  *  AQ 

*  CQ 

ITR1  3 

IF  (EASY)  30,  50,  50 

ITR1  32 

30 

WRITE  (6,40)  EASY 

ITR1  33 

40 

FORMAT  (10X,  31HERROR  DETECTED  IN  ITER1 ,  EASY  =,  D20. 

10) 

ITR1  34 

EASY  ^  O.ODO 

ITR1  35 

50 

SINALR  =  (-BQ  -  DSQRT(EASY)  )  /  ( 2 . ODO  *  AQ 

) 

ITR1  36 

COSALR  =  DSQRTd.ODO  -  SINALR  **2) 

ITR1  37 
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TANALR  =  SINALR  /  COSALR 

ITR1 

38 

ALPHLR  =  DATAN( TANALR) 

ITRl 

39 

TANARR  =  SINALR  /  ( ( 2 . ODO  *  BC  /  LL)  -  COSALR) 

ITR1 

40 

ALPHRR  =  DATAN{ TANARR) 

ITRl 

41 

SINARR  =  DS IN (ALPHRR) 

ITRl 

42 

LR  =  LL  *  SINALR  /  SINARR 

ITRl 

43 

LL1  =  KBAR  +  LR 

ITRl 

44 

IF  (DABS(LL1  -  LL)  -  ERR02 )  80,  80,  60 

ITRl 

45 

60 

LL1  =  (LL1  +  2. DO  *  LL)  /  3. ODO 

ITRl 

46 

WRITE  (6,70)  LL1 ,  LL 

ITRl 

47 

70 

FORMAT 

(lOX,  30HERROR  DETECTED  IN  ITER1 ,  LL1  =,  D20.10, 

ITRl 

48 

1 

6H  LL 

=,  D20.10) 

ITRl 

49 

80 

EPSIC  =  (3.141592653589793D0  -  ALPHLR  -  ALPHRR) 

ITRl 

50 

1 

/  2.0D0 

ITRl 

51 

SB  =  (XIH  -  LL  *  SINALR)  /  LHP 

ITRl 

52 

CB  =  (BC  +  ETAH  -  LL  *  COSALR)  /  LHP 

ITRl 

53 

STH  =  DSIN(ALPHLR  +  EPSIC) 

ITRl 

54 

CTH  =  DCOS( ALPHLR  +  EPSIC) 

ITRl 

55 

SEH  =  CB  *  STH  -  SB  *  CTH 

ITRl 

56 

CEH  =  CB  *  CTH  +  SB  *  STH 

ITRl 

57 

EPSIH  =  DATAN(SEH  /  CEH) 

ITRl 

58 

APSIH  =  EPSIH 

ITRl 

59 

APSIC  =  EPSIC 

ITRl 

60 

ALFLR  =  ALPHLR 

ITRl 

61 

ALFRR  =  ALPHRR 

ITRl 

62 

AOSALR  =  COSALR 

ITRl 

63 

AINALR  =  SINALR 

ITRl 

64 

AINARR  =  SINARR 

ITRl 

65 

ALL1  =  LL1 

ITRl 

66 

ALL  =  LL 

ITRl 

67 

ALR  =  LR 

ITRl 

68 

RETURN 

ITRl 

69 

END 

ITRl 

70 

SUBROUTINE  ITER2(ALL1,  ABC,  AETAH,  AXIH,  ALHP, 

ITR2 

1 

1 

AUESS2, 

AKBAR,  AERR02,  ALFLR,  ALL,  ALFRR,  AOSALR,  AINALR, 

ITR2 

2 

2 

AINARR, 

APSIH,  APSIC,  ALR) 

ITR2 

3 

DOUBLE  PRECISION  LL1 ,  BC,  ETAH,  XIH,  LHP,  GUESS2 , 

ITR2 

4 

1 

KBAR,  ERR02,  ALPHLR,  ALPHRR,  COSALR,  SINALR,  SINARR,  LL, 

ITR2 

5 

2 

LEN,  AAA,  BBB,  CCC,  AQ,  BQ,  CQ,  EASY,  TANARR,  LR, 

ITR2 

6 

3 

EPSIH, 

EPSIC,  AJANE,  HI,  ri2 

ITR2 

7 

LL1  =  ALII 

ITR2 

8 

BC  =  ABC 

’T?.2 

9 

ETAH  =  AETAH 

ITR2 

10 

XIH  =  AXIH 

ITR2 

1  1 

LHP  =  ALHP 

ITR2 

1  2 

GUESS2  =  AUESS2 

ITR2 

1  3 

ERR02  =  AERR02 

ITR2 

14 

EPSIH  =  APSIH 

ITR2 

1  5 

AJANE  =  1 .ODO 

ITR2 

16 

DO  60  I  =  1 ,  100 

ITR2 

1  7 

LL  =  LL1 

ITR2 

1  9 

LEN  =  DSQRT((BC  +  ETAH)  **2  +  XIH  **2) 

ITR2 

20 
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IF  (L'  '  -  LHP  -  LL1 )  20,  10,  10 

ITR2 

21 

10 

LL  =  LEN  -  LKP  +  GUESS2  /  AJANE 

ITR2 

22 

AJANE  =  AJANE  +  1.0D0 

ITR2 

23 

20 

AAA  =  2.0D0  *  (BC  +  ETAH'  *  LL 

ITR2 

24 

BBB  =  2.0D0  *  XIH  *  LL 

ITR2 

25 

CCC  =  LHF  **2  -  XIH  **2  -  (BC  +  ETAH)  **2  -  LL  **2 

ITR2 

2G 

AQ  =  AAA  **2  •*  BBB  **2 

ITR2 

27 

BQ  ^  2.0D0  *  BEL  *  CCC 

ITR2 

28 

CQ  =  CCC  **2  -  AAA  **2 

ITR2 

29 

EASY  =  BQ  **2  -  4.0DO  *  AQ  *  CQ 

ITR2 

30 

IF  (EASY)  30,  50,  50 

ITR2 

31 

30 

WRITE  (6,40)  EASY 

ITR2 

32 

40 

FORMAT 

(10X,  31HERROR  DETECTED  IN  ITER2,  EASY  D20.10) 

ITR2 

321 

EASY  =  O.ODC 

ITR2 

322 

50 

SINALR  =  (-BQ  -  DSQRT(EASY))  /  (2.0D0  *  AQ) 

ITR2 

33 

COSALR  =  DSQPTd.ODO  -  SINALR  **2) 

ITR2 

34 

ALPHLR  =  DATAN( SINALR  /  COSALR) 

ITR2 

35 

TANARR  =  SINALR  /  ( ( 2 . ODO  *  BC  /  LL)  -  COSALR) 

ITR2 

36 

ALPHRR  =  DAT AN ( TANARR ) 

ITR2 

37 

SINARR  =  DS IN (ALPHRR) 

ITR2 

38 

LR  =  LL  *  SINALR  /  SINARR 

ITR2 

39 

EPSIC  =  (3. 141592653589793D0  -  ALPHLR  -  ALPHRR) 

ITR2 

40 

1 

/  2.0D0 

ITR2 

41 

HI  =  XIH  -  LHP  *  DSIN(ALPHLR  +  EPSIC  -  EPSIH) 

ITR2 

42 

H2  =  BC  +■  ETAH  -  LHP  *  DCOS(ALPHLR  +  EPSIC  -  EPSIH) 

ITR2 

43 

LL1  =  DSQKr(Hi  *  HI  +  H2  *  H2 ) 

ITR2 

44 

IF  (DABS(LL1  -  LL)  -  ERR02)  80,  80,  60 

ITR2 

45 

60 

LL1  =  (LL1  +  LL)  /  2. ODO 

ITR2 

46 

WRITE  (6,70)  LL1 ,  LL 

ITR2 

461 

70 

FORMAT 

(10X,  30HERROR  DETECTED  IN  ITER2,  LL1  =,  D20.10, 

ITR2 

462 

1 

6H  LL 

=,  D20.10) 

ITR2 

463 

80 

KBAR  =  LL1  -  LR 

ITR2 

47 

ALL1  =  LL1 

ITR2 

48 

AKBAR  =  KBAR 

ITR2 

49 

ALFLR  =  ALPHLR 

ITR2 

50 

ALFRR  =  ALPHRR 

ITR2 

51 

ALL  =  LL 

ITR2 

52 

APSIC  =  EPSIC 

ITR2 

53 

AINALR  =  SINALR 

ITR2 

531 

AOSALR  =  COSALR 

ITR2 

54 

AINARR  =  SINARR 

ITR2 

55 

ALR  =  LR 

ITR2 

56 

RETURN 

ITR2 

57 

END 

ITR2 

58 

SUBROUTINE  FOR  CALCULATING  AERODYNAMIC  FORCES  AND  MOMENTS 

AERO 

1 

SUBROUTINE  AERO 

AERO 

2 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 

AERO 

3 

1 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

AERO 

4 

REAL  MP,  LMOM,  NMOM 

AERO 

5 

DIMENSION  FP(3),  MP(3),  GAMB(3,3),  VB(3) 

AERO 

6 

DIMENSION  CIQA(8) ,  CIQ0(8),  FPQB(8) 

AERO 

7 

EQUIVALENCE  (P(164),  VWIND) ,  (P(165),  RHO) , 

AERO 

8 
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1 


1 

1 


1 


'  0 


1 


10 


(P(166),  S),  (P(167),  CBAR),  (P(168),  B) ,  (P(169),  DELTA),  AERO 

(P(170),  CXAL),  (P(171),  CZAL),  CYBT),  (P(173),  CXDL),AERO 

(P(174),  CZDL),  (P(175),  CMAL) ,  (P(176),  CLBT),  (P(177),  CNBT),AEHO 
(P(178),  CMDL),  {P(179),  CXO ) ,  (P(180),  CZO ) ,  (P(181),  CMO ) ,  AELO 
;P(182),  ALFREF),  (P(183),  DELREF)  AERO 

EQUIVALENCE  (P(209),  CIQA) ,  (P(225),  CIQO)  AERO 

EQUIVALENCE  (P(476),  FP),  (P(479),  MP) ,  AERO 

(P(482),  FPQB)  AERO 

EQUIVALENCE  (P(561),  ALPHA),  (P(562),  BETA),  AERO 

(P(563),  VAIR)  AERO 

EQUIVALENCE  (P(571),  GAMB)  AERO 

EQUIVALENCE  (NTEGER(15),  NBE)  AERO 

EQUIVALENCE  (Y(2),  VB)  AERO 

VBA1  =  VB(1)  +  GAMB(1,1)  *  WIND  AERO 

VBA2  =■  VB(2)  +  GAMB  (1,2)  *  VWIND  AERO 

VBA3  =  VB(3)  +  GAMB (1,3)  *  VWIND  AERO 

VAIR2  =  VBA1  **2  +  VBA2  **2  VBA3  **2  AERO 

VAIR  =  SQRT(VAIR2)  AERO 

ALPHA  =  ATAN(VBA3  /  VBA1 )  ♦  57.29578  AERO 

BETA  =  ATAN(VBA2  /  VBA1 )  *  57.29578  AERO 

DPRS  =  0.5  *  RHO  *  S  *  VAIR2  AERO 

DALF  =  ALPHA  -  ALFREF  AERO 

DDEL  =  DELTA  -  DELREF  AERO 

Z  =  DPRS  *  (CZO  +  CZAL  *  DALF  +  CZDL  *  DDEL)  AERO 

X  =  DPRS  *  (CXO  +  CXAL  *  DALF  +  CXDL  *  DDEL)  AERO 

FP(2)  =  DPRS  *  CrBT  *  BETA  AERO 

LMOM  =  DPRS  *  B  *  Cl,BT  *  BETA  AERO 

MP(2)  =  DPRS  *  CBAR  *  (CMO  +  CMAL  *  CALF  +  AERO 

CMDL  *  DDEL)  AERO 

NMOM  =  DPRS  *  B  *  CNBT  *  BETA  AERO 

SINA  =  SIN(ALPKA  /  57.29578)  AERO 

CwSA  =  COS (ALPHA  /  57.295'&)  AERO 

FP(1)  =  X  *  COSA  -  Z  *  SINA  AERO 

FP(3)  =  Z  *  COSA  +  X  *  SINA  AERO 

MP(1)  =  LMOM  *  COSA  -  NMOM  *  SINA  AERO 

MP(3)  =  NMOM  *  COSA  +  LMOM  *  SINA  AERO 

DO  101=1,  NBE  AERO 

FPQB(I)  =  DPRS  *  (CI>QA(I)  *  DALI'  +  CIQOd)'  AERO 

RETURN  AERO 

ENJ  AERO 

SUBROUTINE  FOR  NUMBERING  THE  PAGES  AND  IDENTIFYING  THE  RUN  PAGri 

SUBROUTINE  PAGEHD  PAGH 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000),  PAGH 

NTEGEROOO),  TABLI  (40,  1  10)  ,  TABL2(125,1),  Q(70)  PAGH 

EQUIVALENCE  (NTEGER(I),  I DENT),  (NTEGER(49),  NPAGE )  PAGH 
WRITE  (6,10)  I DENT,  NPAGE  PAGH 

FORMAT  (17H1  RUN  NO.  ,  15,  20X,  8HPAGE  NO.  ,  15)  PAGH 

RETURN  PAGH 

END  PAGH 

SUBROUTINE  FOR  STRAIGHT  LINE  INTERPOLATION  IN  A  SINGLE  TABS 

TABLE  LOOK  UP  TABS 

SUBROUTINE  TABSN 1 ( TABLE ,  XARG ,  AM?,  NTAB )  TABS 


9 

10 
1  1 
12 
1  3 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4  6 
4  7 
48 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 
3 
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DIMEN  TON  TABLE  (4400) 

TABS 

4 

DO  101=1,  NTAB 

TABS 

5 

IF  (TABLE (I)  -  XARG)  10,  20, 

20 

TABS 

6 

10 

CONTINUE 

TABS 

7 

I  =  NTAB 

TABS 

3 

.?0 

IF  (I  -  1 )  30,  30,  40 

TABS 

9 

30 

I  =  2 

TABS 

10 

40 

NT\BI  =  NTAB  +  I 

TABS 

1  1 

DIV  =  TABLE(I)  -  TABLE(I-I) 

TABS 

12 

IF  (DIV)  60,  50,  60 

TABS 

12 

50 

SLOPE  =  0.0 

TABS 

1  3 

GO  TO  70 

TABS 

14 

60 

SLOPE  =  (TABLE(NTABI )  -  TABLE ( NTAB I - 1 ) )  /  DIV 

TABS 

15 

70 

AMP  =  SLOPE  *  (XARG  -  TABLE ( I 

-1  )  ) 

TABS 

16 

1 

+  TABLE(NTABI-1 ) 

TABS 

17 

RETURN 

TABS 

18 

END 

TABS 

19 

SUBROUTINE  FOR  STRAIGHT  LINE  INTERPOLATION  IN  A  DOUBLE 

DTAB 

1 

TABLE  LOOK  UP 

DTAB 

2 

SUBROUTINE  TABDB2 ( TABLE ,  X1ARG,  X2ARG,  AMP, 

DTAB 

3 

1 

NTABI,  NTAB 2) 

DTAB 

4 

DIMENSION  TAB..E  (125) 

DTAB 

5 

DO  lO  I  =  1,  NTABI 

DTAB 

6 

IF  (TABLE(I)  -  X1ARG)  10,  20, 

20 

DTAB 

7 

10 

CONTINUE 

DTAB 

8 

I  =  NTABI 

DTAB 

9 

20 

IF  (I  -  1 )  30,  30.  40 

DTAB 

10 

?0 

I  =  2 

DTAB 

1  1 

40 

NTBP1  =  NTABI  +  1 

DTAB 

12 

NN12  =  NTABI  +  NT;..32 

DTAB 

1  3 

DO  50  J  =  NTBP1,  NN12 

DTAB 

14 

IF  (TABLE(J)  -  X2ARG)  50,  bO, 

60 

DTAB 

15 

50 

CONTINUE 

DTAB 

16 

J  =  NN12 

DTAB 

17 

60 

IF  (J  -  NTBP1 )  70,  70,  80 

DTAB 

18 

70 

J  =  NTABI  +  2 

DTAB 

19 

80 

N22  =  NN12  +  (J  -  NTABI  -  1  ) 

*  NTABI  +  I 

DTAB 

20 

N12  =  N22  -  NTABI 

DTAB 

21 

N21  =  N22  -  1 

DTAB 

22 

Nil  =  N21  -  NTABI 

DTAB 

23 

DIV  =  (TABLE( I)-TABLE( 1-1 ) ) 

DTAB 

24 

IF  (DIV)  100,  90,  ICO 

DTAB 

25 

90 

SLOPX1  =  0.0 

DTAB 

26 

GO  TO  110 

DT«fl 

27 

100 

SLOPX1  =  (X1ARG  -  TABLE(I-I)) 

/  DIV 

DT..3 

28 

110 

DIV  =  (TABLE(J)-TABLE(J-I ) ) 

DTAB 

29 

IF  (DIV)  130,  120,  130 

DTAB 

30 

1  20 

SLOPX2  =0.0 

DTAB 

31 

GO  TO  140 

DTAB 

32 

.0 

SLOPX2  =  (X2ARG  -  TABLE ( J-1 ) ) 

/  DIV 

DTAB 

33 

1  40 

ANSI  =  SLOPX2  *  (TABLE(N21)  - 

TABLE(N1 1  )  ) 

DTAB 

34 

1 

+  TABLE (N1 1 ) 

DTAB 

35 

116 


SOURCE  DECK  LISTING 


ANS2  =  SLOPX2  *  ( TABLE (N22)  -  TABLE (N1 2: 
+  TABLE (N1 2) 

AMP  =  SLOPXl  (ANS2  -  ANSI)  +  ANSI 

RETURN 

END 

SUBROUTINE  GAUSS2(N,  M,  EP,  A,  X,  KEP) 
DIMENSION  A(15,16),  X(15,1) 

NPM  =  N  +  M 
DO  100  L  =  1 ,  N 
KP  =  0 
Z  =  0.0 

DO  20  K  =  L,  N 

IF  (Z  -  ABS(A(K,L)))  10,  20,  20 


10 

Z  =  ABS(A(K, L) ) 

KP  =  K 

20 

CONTINUE 

IF  (L  -  KP)  30,  50,  5C 

30 

DO  40  J  =  L,  NFM 

Z  =  A(L,J) 

A(L,J)  =  A{KP,J) 

40 

A(KP,J)  =  Z 

50 

IF  (ABS(A(L,L) )  -  EP)  11 

60 

IF  (L  -  N)  70,  110,  110 

70 

LP1  =  L  +  1 

DO  100  K  =  LP1 ,  N 

IF  (k(K,L)  80  ,  100 ,  80 

80 

RATIO  =  A(K,L)  /  A(L,L) 
DO  90  J  *  LP1,  NPM 

9C 

A(K,J)  =  A(K,J;  -  RATIO 

100 

CONTINUE 

110 

DO  140  I  =  1 ,  N 

II  =  N  +  1  -  I 
DO  140  J  =  1 ,  M 
JPN  =  J  -*■  N 
S  =  0.0 

IF  (II  -  N)  120,  140,  140 
IIP1  =11+1 
DO  130  K  =  I IP1 ,  N 
S  =  S  +  A{ II ,K)  *  X(K,J) 

X(II,J>  =  -'Adi, JPN)  -  I)  /  Adl.II) 

KER  = 

GO  TO  160 
KER  =  2 
CONTINUE 
RETURN 
END 

INTEGRATION  SUBROUTINE  FOR  FOUR  POINT  RUNGE  KUTTA 


SUBROUTINE  NTGRTL 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  ?(2000), 
1  NTEGEROOO),  TABL1  (  40  ,  1  1  0  )  ,  TABL2  ( 1  25 , 1  )  ,  Q(70) 
DIMENSION  D(70),  DD{70) 

EOU I VALENCE  (NTEGER(13),  NEQ) 


DTAB  36 
DTAB  37 
DTAB  38 
DTAB  39 
DTAB  40 
GAUS  1 
GAUS  2 
GAUS  3 
GAUS  4 
GAUS  5 
GAUS  6 
GAUS  7 
GAUS  8 
GAUS  9 
GAUS  10 
GAUS  1 1 
GAUS  12 
GAUS  13 
GAUS  14 
GAUS  15 
GAUS  16 
GAUS  17 
GAUS  18 
GAUS  19 
GAUS  20 
GAUS  21 
GAUS  22 
GAUS  23 
GAUS  24 
GAUS  25 
GAUS  26 
GAUS  27 
GAUS  28 
GAUS  29 
GAUS  30 
GAUS  31 
GAUS  52 
GAUS  33 
GAUS  34 
GAUS  35 
GAUS  36 
GAUS  37 
GAUS  38 
GAUS  39 
GAUS  40 
GAUS  41 
RK2  1 
RK2  2 
RK2  3 
RK2  4 
RK2  5 
RK2  6 
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10 


20 


30 


40 


1 


50 


60 


1 

1 

2 


10 

20 

30 


40 

50 


CALCULATE 

THE  DE  ?A  Yd)  FOR  THE  FIRST  STEP 

RK2 

7 

CALL  DYDXS 

RK2 

8 

DO  20  I  =  1 ,  NEQ 

RK2 

9 

Q( I )  =  Y( I ) 

RX2 

10 

D( I )  =  DYDX( I )  *  P( 1 )  *  0.5 

RK2 

1  1 

CONTINUE 

RK2 

12 

WRITC  THE 

OUTPUT  OF  THE  INTEGRATION 

RK2 

1  3 

CALL  OUTPUT 

RK2 

14 

CALCULATE 

THE  Yd)  FOR  THE  FIRST  STEF 

RK2 

15 

DO  301=1,  NEQ 

RK2 

16 

Yd  )  =  Yd  )  +  D(  I  ) 

RK2 

1  7 

CONTINUE 

r:<2 

18 

CALL  DYDXS 

RK2 

19 

CALCULATE 

THE  DELTA  Yd)  AND  Y(I)  FOR  THE  SECOND  STEP 

RK2 

20 

DO  401=1,  NEQ 

RK2 

21 

DDd  )  =  DYDX(  I  )  *  P(  1  )  *  0.5 

RK2 

22 

Yd  )  =  Qd  )  +  DDd  ) 

RK2 

23 

CONTINUE 

RK2 

24 

CALL  DYDXS 

RK2 

25 

CALCULATE 

THE  DELTA  Y(d  AND  Yd)  FOR  THE  THIRD  STEP 

RK2 

26 

DO  50  I  =  1 ,  NEQ 

RK2 

27 

DDD  =  DYDX{ I )  *  P( 1 ) 

RK2 

28 

Yd  )  =  Qd  )  -t-  DDD 

RK2 

29 

Qd)  =  3 . 3333333333333E-1  *  Dd) 

RK2 

30 

+  6.6666666666667E-1  *  DD(I)  +  3 . 3333333333333E-1  *  DDD  -  0(1) 

RK2 

31 

CONTINUE 

RK2 

32 

CALL  DYDXS 

RK2 

33 

CALCULATE 

THE  DELTA  Yd)  FOR  THE  FOURTH  STEP 

RK2 

34 

DO  60  I  =  1 ,  NEQ 

RK2 

35 

DDDD  =  DYDX( I )  *  P(  1  ) 

RK2 

36 

Yd)  =  Qd)  +  1 .6666666666667E-1  *  DDDD 

RK2 

37 

PROCEED  WITH  THE  INTEGRATION 

RK2 

38 

GO  TO  10 

RK2 

39 

END 

RK2 

40 

SUBROUTINE  FOR  CONTROL  OF  OUTPUT  OF  DIFFERENTIAL  EQUATION 

OUTP 

1 

ROUTINE 

OUTP 

2 

SUBROUTINE  OUTPUT 

OUTP 

3 

COMMON  Y(70),  DYDX(70),  FIRSTY(70),  P(2000), 

OUTP 

4 

NTEGER(300),  TABL1 ( 40 , 1 1 0 ) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

OUTP 

5 

EQUIVALENCE  (NTEGER(I),  IDENT) ,  (NTEGER(12),  NTSKIP) 

,OUTP 

6 

{NTEGER(48),  NZFRO' •  (NTEGER(49),  NPAGE) ,  (NTEGER(50),  NLINE), 

OUTP 

7 

(NTEGER( 51 

),  NSKIP),  (NTEGER(53),  NPRT) 

OUTP 

8 

CHECK  FOR 

INTEGRATION  END  AND  PRINTING  ON  THIS  STEP 

OUTP 

9 

IF  (Y( 1 )  -  P{2) )  20,  10,  10 

OUTP 

10 

NPRT  =  1 

OUTP 

1 1 

GO  TO  80 

OUTP 

12 

IF  (NSKIP  -  NTSKIP)  30,  40,  40 

OUTP 

13 

NSKIP  =  NSKIP  +  1 

OUTP 

14 

GO  TO  100 

OUTP 

15 

CHECK  FOR 

A  NEW  PAGE  REQUIREMENT 

OUTP 

16 

IF  (NLINE  -  55)  60,  50,  50 

OUTP 

1  7 

NLINE  =  0  OUT?  18 


118 


SOURCE  DECK  LISTING 


60 

70 

80 


90 

100 


1 


1 

2 


1 

2 

3 

4 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 

1 

2 

3 

4 

5 

6 

7 

8 
9 
1 
2 

3 

4 


NLINE  =  NLINE  +  1 

IF  (NLINE  -  55)  80,  70,  70 

NPRT  =  1 

CALL  OUTAID 

NSKIP  =  0 

return  control  to  guide  at  end  of  INTEGRATION 
IF  (Y( 1 )  -  P(2) )  100,  90,  90 
NZERO  =  NZERO  +  1 
CALL  GUIDE 
RETURN 
END 

SUBROUTINE  FOR  PRINTING  RESULTS  OF  ARRESTED  LANDING  ANALYSIS 
SUBROUTINE  OUTAID 

COMMON  Y(70),  DYDX{70),  FIRSTY(70),  P(20C0), 
NTEGER(300),  TABLI (40, 1 10) ,  TABL2 ( 1 25 , 1 ) ,  Q(70) 

REAL  MP(3) 

DIMENSION  SAV1 (55, 13) ,  SAV2(55,13),  SAV3(55,13), 
SAV4(55,13),  SAV5(55,13),  SAV6(55,13),  SAV7(55,13), 
SAV8(55,13),  SAV9(55,13),  SAV1 0 ( 55 , 1 3 ) ,  SAV11(55,13) 
DIMENSION  SAV12(55,13) 

DIMENSION  VBD(3),  VB(3),  OMEGBD(3),  OMEGB(3), 
QG1DD(2),  QG1D(2),  QG1(2),  QG2DD(2),  QG2D(2),  QG2(2), 
QG3DD(2),  QG3D(2),  QG3(2),  QBDD(8),  QBD(8),  QB(8),  FG1H(3), 
FAX1(3),  FG2H(3),  FAX2(3),  FG3H(3),  FAX3(3),  FH(3), 

FP(3) 

EQUIVALENCE  (Y(1),  T) ,  (Y(2) 

(Y(6),  S),  (Y(7),  V),  (Y(8),  OMEGB) , 


QG3D(2),  QG3(2), 
FG2H(3),  FAX2(3), 


(Y(12), 
(Y(16), 
(Y(20) , 
(Y(24) , 
(Y(28), 
(Y(32), 
(Y(37), 
(Y(45), 
(Y{64), 


THETR) 

S3D)  , 

OMW1 ) , 

BETA2 ) 

BTAS3),  (Y(29? 
DLSL1),  (Y(33) 
QG2D) ,  (Y(39) , 
QG3),  (Y(47), 
THTG1R) 

EQUIVALENCE 


VALENCE  (Y(1),  T),  (Y(2),  VB) ,  (Y(5),  D) , 

(7),  V),  (Y(8),  OMEGB),  (Y(11),  PHIR) , 

,  (Y(13),  PSIR),  (Y(14),  SID),  (Y(15),  S2D) , 
(Y(17),  SI),  (Y(18),  S2),  (Y(19),  S3), 

(Y(21),  OMW2),  (Y(22),  OMW3 ) ,  (Y(23),  BETA1 ) , 

,  (Y(25),  BETA3),  (Y(26),  BTAS1 ) ,  (Y(27),  BTAS2 ) 

,  (Y(29),  DLSU1),  (Y(30),  DLSU2 ) ,  (Y(31),  DLSU3) 

,  (Y(33),  DLSL2;,  (Y(34),  DLSL3 ) ,  (Y(35),  QG1D), 

(Y(39),  QG3D),  (Y(41),  QG1 ) ,  (Y(43),  QG2 ) , 
(Y(47),  QBD),  (Y(55),  QB) ,  (Y(63),  OMG1D), 


(DYaX(6) , 
(DYOT(  1 1 ) 
( DYDX( 1 4 ) 
( DYOT( 1 7 ) 
(DYI»X(20) 
(DYia(23) 
(DTia(26) 
(DYni(29) 
(DYia(32) 
(DYia(35) 
(DYia(41  ) 
(DYia(47) 
(DYia(64) 


EQUIVALENCE  (DYDX(2),  VBD) ,  ( DYDX ( 5 ) ,  DD)  , 

SD),  (DYDX(7),  VD),  (DYDX(8),  OMEGBD) , 
PHIRD),  (DYDX(12),  THETRD) ,  ( DYDX ( 1 3 ) ,  PSIRD) 
S1DD),  (DYDX(15),  S2DD) ,  (DYDX(16/,  S3DD) , 
SS1D),  (DYDX(18),  SS2D),  (DYDX(19),  SS3D) , 


S 1 DD ) ,  ( DY 
SS 1 D ) ,  ( DY 
OMWiD),  (D 
BETA1D),  ( 
BTAS ID),  ( 
DLSU1D),  ( 

dlslid:,  ( 

QG1DD),  (D 
QQG1D),  (D 
QBDD ) ,  ( DY 
OOMG 1 D ) 
EQUIVALENCE 


(DYDX( 21 ) , 
,  (DYDX(24) 
,  (DYDX (27) 
,  (DYDX(30) 
,  ( DYDX (33) 

(DYDX( 37 )  , 
(DYDX(43) , 
(DYDX (55)  , 


OMW2D),  (DYDX(22),  OMW3D) , 

,  BETA2D),  (DYDX (25),  BETA3D) , 

,  BTAS2D),  (DYDX(28),  BTAS3D) , 

,  DLSU2D) ,  (DYDX( 3' , ,  DLSU3D) , 

,  DLSL2D),  (DYDX(34),  DLSL3D) , 

CG2DD) ,  (DYDX (39),  QG3DD) , 
QQG2D),  (DYDX(45),  QQG3D) , 
QQBD),  (DYDX (63),  OMG1DD), 


:p(476),  FP),  (P(479), 


EQUIVALENCE  (P(501),  FSl ) ,  (P(502),  FG1H), 


OUTP  19 
OUTP  20 
OUTP  21 
OUTP  22 
OUTP  23 
OUTP  24 
OUTP  25 
OUTP  2f 
OUTP  27 
OUTP  23 
OUTP  29 
OUTA  1 
OUTA  2 
OUTA  3 
OUTA  4 
OUTA  5 
OUTA  6 
OUTA  7 
OUTA  8 
OUTA  9 
OUTA  10 
OUTA  1 1 
OUTA  12 
OUTA  13 
OUTA  14 
OUTA  15 
OUTA  16 
OUTA  17 
OUTA  18 
OUTA  19 
,OUTA  20 
,OUTA  21 
OUTA  22 
OUTA  23 
OUTA  24 
OUTA  25 
OUTA  26 
OUTA  27 
OUTA  28 
OUTA  29 
OUTA  30 
OUTA  31 
OUTA  32 
OUTA  33 
OUTA  34 
OUTA  35 
OUTA  36 
OUTA  37 
OUTA  38 
OUTA  39 
OUTA  40 
OUTA  41 
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1 

(P(505) , 

FAX1),  .'(508), 

PHI ) ,  (P(509) ,  ?A1 ) , 

(P(510)  , 

PHS1 ) , 

OUTA 

42 

2 

{ P  (  5  •  1  )  , 

FFBU1).  {P(512) 

,  FFBL1),  (P(513),  VW1 ) 

OUTA 

43 

EQUIVALENCE  (P(518),  FS2),  (P(519), 

FG2H)  , 

GUTA 

44 

1 

(P(522) , 

FAX2),  (P(525), 

PH2),  (P(526),  PA2), 

(P{527)  , 

PHS2) , 

OUTA 

45 

2 

(P(528) , 

FFBU2),  (P(529) 

,  FFBL2),  (P(530),  VW2 

) 

OUTA 

46 

EQUIVALENCE  (P(535),  FS3),  (P(536), 

FG3H)  , 

OUTA 

47 

1 

(P(539) , 

FAX3),  (P(542), 

PH3),  (P(543),  PA3), 

(P(544)  , 

PHS3) , 

OUTA 

48 

2 

(P(545) , 

FFBU3),  (P(546) 

,  FFBL3),  (P(547),  VW3 ) 

OUTA 

49 

EQUIVALENCE  (P(551),  FH) ,  (P(554),  RUNOUT), 

OUTA 

50 

1 

(P(555) , 

SH),  {P(556),  VH),  (P(557),  PKIHKR) , 

(P(558)  , 

ALPHCR) 

OUTA 

51 

EQUIVALENCE  {P(561),  ALPHA),  (P(562) 

,  BETA), 

OUTA 

52 

1 

(P{563) , 

VAIR) 

OUTA 

53 

EQU I  VALENCE  (  NTEGER 1  ;  ,  I  DENT )  ,  ( NTEGER  (11), 

NHOOK ) , 

OUTA 

54 

1 

(NTEGER( 

15),  NBE ) 

OUTA 

55 

EQUIVALENCE  (NTEGER (49),  NPAGE) ,  (NTEGER (50) 

,  NLINE) 

,OUTA 

56 

1 

(NTEGER(53),  NPRT) 

OUTA 

57 

SAV1 (NLINE, 1 ) 

=  T 

OUTA 

58 

SAV1 (NLINE, 2) 

=  VBD( 1  )  /  12.0 

OUTA 

59 

SAV1 (NLINE, 3) 

=  VB ( 1 )  /  12.0 

OUTA 

60 

SAV1 (NLINE, 4 ) 

=  DD  /  12,0 

OUTA 

61 

SAV1 (NLINE, 5) 

=  D  /  12.0 

OUTA 

62 

SAV1 (NLINE, 6) 

=  VBD(2)  /  12.0 

OUTA 

63 

SAV1 (NLINE, 7) 

=  VB(2)  /  12.0 

OUTA 

64 

SAV1 (NLINE, 8) 

=  SD  /  12.0 

OUTA 

65 

SAV1 (NLINE, 9) 

=  S  /  12.0 

OUTA 

66 

SAV1 (NLINE, 10) 

=  V3D(3)  /  12.0 

OUTA 

67 

SAV1 (NLINE, 1 1 ) 

=  VB(3)  /  12.0 

OUTA 

68 

SAV1 (NLINE, 12) 

=  VD  /  12.0 

OUTA 

69 

SAV1 (NLINE, 13) 

=  V  /  12.0 

OUTA 

70 

SAV2 (NLINE, 1 ) 

=  T 

OUTA 

71 

SAV2(NL1NE,2) 

=  OMEGBD(  1  ) 

OUTA 

72 

SAV2(NLINE,3) 

=  OMEGB( 1 ) 

OUTA 

73 

SAV2(NLINE,4) 

=  PHIRD 

OUTA 

74 

SAV2(NLINE, 5) 

=  PHIR  *  57.29578 

OUTA 

75 

SAV2(NLINE,6) 

=  OMEGBD(2) 

OUTA 

76 

SAV2(NLINE,7) 

=  OMEGB(2) 

OUTA 

77 

SAV2(NLINE,8) 

=  THETRD 

OUTA 

78 

SAV2(NLINE,9) 

=  THETR  *  57.29578 

OUTA 

79 

SAV2(NLINE, 10) 

=  OMEGBD(3) 

OUTA 

80 

SAV2(NLINE, 1 1 ) 

=  OMEGB(3) 

OUTA 

81 

SAV2(NLINE, 12) 

=  PSIRD 

OUTA 

82 

SAV2 (NLINE, 1 3) 

=  PSIR  *  57.29578 

OUTA 

83 

SAV3(NLINE, 1 ) 

=  T 

OUTA 

84 

SAV3(NLINE,2) 

=  PHI 

OUTA 

85 

SAV3(NLINE, 3) 

=  PA1 

OUTA 

86 

SAV3(NLINE,4) 

=  PHS1 

OUTA 

87 

SAV3(NLINE,5) 

=  OMW1D 

OUTA 

88 

SAV3(NLINE,6) 

=  OMW1 

OUTA 

89 

SAV3(NLINE,7) 

=  QG1DD( 1 ) 

OUTA 

90 

SAV3(NLINE,8) 

=  QG1D( 1 ) 

OUTA 

91 

SAV3(NLINE,9) 

=  QG1 ( 1  ) 

OUTA 

92 

SAV3(NLINE, 10) 

=  QG1DD(2) 

OUTA 

93 
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SAV3{NLINE, 1 1 )  =  QG1D(2) 
SAV3(NLINE, 12)  =  QG1 (2) 
SAV3(NLINE, 1 3)  =  VW1 
SAV4(NLINE, 1 )  =  T 
SAV4(NLINE,2)  =  FS1 
SAV4(NLINE, 3)  =  FG1H(1) 
SAV4(NLINE,4)  =  FG1H(2) 
SAV4(NLINE,5)  =  FG1H{3) 
SAV4(NLINE,6)  =  FAX1 { 1) 
SAV4(NLINE,7)  =  FAX1 (2) 
SAV4(NLINE,8 '  =  FAX1 (3) 
SAV4(NLINE,9  -  S1DD 
SAV4(NLINE, 10)  =  SID 
SAV4(NLINE, 11)  =  SI 
SAV4(NLINE, 12)  =  FFBU1 
SAV4{NLINE, 13)  =  FF5L1 
SAV5(NLINE,  1  )  =  T 
SAV5(NLINE, 2)  =  PH2 
SAV5(NL1NE,3)  =  PA2 
SAV5(NLINE,4)  =  PHS2 
SAV5(NLINE, 5)  =  OMW2D 
SAV5(NLINE,6)  =  OMW2 
SAV5(NLINE,7)  =  QG2DD(1) 
SAV5(NLINE,8)  =  QG2D( 1 ) 
SAV5(NLINE,9)  =  QG2( 1 ) 
SAV5(NLINE, 10)  =  QG2DD(2) 
SAV5(NLINE, 1 1 )  =  QG2D(2) 
SAV5(NLINE, 12)  =  QG2{2) 
SAV5(NLINE, 13)  =  VW2 
SAV6(NLINE, 1 )  =  T 
SAV6(NLINE,2/  =  FS2 
SAV6(NLINE, 3)  =  FG2H( 1 ) 
SAV6(NLINE,4)  =  FG2H(2) 
SAV6(NLINE,5)  =  FG2H(3) 
SAV6(NLINE,6)  =  FAX2{ 1 ) 
SAV6(NLINE,7)  =  FAX2(2) 
SAVo(NLINE,8)  =  FAX2(3) 
SAV6(NLINE,9)  =  S2DD 
SAV6(NLINE, 10)  =  S2D 
SAV6(NLINF  I'.)  =  S2 
SAV6(NLINE, 12)  =  FFBU2 
SAV6(NLINE,  13)  =  FF5L2 
SAV7(NLINE, 1 )  =  T 
SAV7(NLINE,2)  =  PH3 
SAV7(NLINE,3)  =  PA3 
SAV7(NLINE,4)  =  PHS3 
SAV7(NLINE,5)  =  OMW3D 
SAV7(NLINE,6)  =  OMW3 
SAV7{NLINE,7)  =  QG3DD( 1 ) 
SAV7(NLINE,8)  =  QG3D( 1 ) 
SAV7(NLINE,9)  =  QG3{1 ) 
SAV7(NLINE, 10)  =  QG3DD(2) 


OUTA  94 
OUT A  95 
OUTA  96 
OUTA  97 
OUTA  98 
OUTA  99 
OUTA100 
OUTA101 
OUTA 102 
OUTA103 
OUTA 104 
OUTA105 
OUTA106 
OUTA 107 
OUTA108 
OUTA109 
OUTA1 10 
OUTA1 1 1 
OUTA1 1 2 
OUTA1 1 3 
OUTA1 14 
OUTA1 1 5 
OUTA1 16 
OUTA1 17 
OUTA1 18 
OUTA1 19 
OUTA120 
OUTA1 21 
OUTA122 
OUTA123 
OUTA124 
OUTA1 25 
OUTA 1 26 
OUTA1 27 
OUTA1 28 
OUTA1 29 
OUTA1 30 
OUTA1 31 
OUTA1 32 
OUTA 1 33 
OUTA134 
OUTA 135 
OUTA1 36 
OUTA1 37 
OUTA 138 
OUTA1 39 
OUTA 140 
OUTA141 
OUTA 142 
OUTA143 
OUTA 144 
OUTA145 
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SAV7 (N.  NE, 1 1  ) 

=  QG3D(2) 

OUTA146 

SAV7(NLINE, 12) 

=  QG3(2) 

OUTA147 

SAV7(NLINE, 13) 

=  VW3 

OUTA148 

SAV8(NLINE, 1 )  = 

T 

OUTA149 

SAV3(NLINE,2)  = 

FS3 

OUTA150 

SAV6(NLINE,3)  = 

FG3H( 1  ) 

OUTA1 51 

SAV8 (MLINE, 4 1  = 

FG3H(2) 

OUTA1 52 

SAV8(NLINE, 5)  = 

FG3H(3) 

OUTA1 53 

SAV8(NLINE, 6)  = 

FAX3(  1  ) 

OUTA154 

SAV8(NLINE, 7)  = 

FAX3(2) 

OUTA155 

SAV8(NLINE,8)  = 

FAX3(3) 

OUTA156 

SAV8(NLINE,9)  = 

S3DD 

OUTA157 

SAV8(NLINE, 10) 

=  S3D 

OUTA1 58 

SAV8 (NLINE, 1 1 ) 

=  S3 

OUTA159 

SAV8(NLINE, 12) 

=  FFBU3 

OUTA160 

SAV8( NLINE, 13) 

=  FFBL3 

OUTA1 61 

SAV9 (NLINE, 1 )  = 

T 

OUTA162 

SAV9(NLINE,2)  = 

ALPHA 

OUTA163 

SAV9(NLINE, 3)  = 

BETA 

OUTA1 64 

SAV9(NLINE, 4)  = 

VAIR  /  12.0 

OUTA165 

SAV9(NLINE, 5)  - 

FP(1  ) 

OUTA1 66 

SAV9(NLINE,6)  = 

FP(2) 

OUTA167 

SAV9(NLINE,7)  = 

FP(3) 

OUTA1 68 

SAV9(NLINE,8)  = 

MP(1  ) 

OUTA1 69 

SAV9(NLINE,9)  = 

MP(2) 

OUTA170 

SAV9( NLINE, 10) 

=  MP(3) 

OUTA171 

SAV9 (NLINE, 11 ) 

*  OMG1DD 

OUTA172 

SAV9(NLINE, 12) 

=  OMG1D 

OUTA173 

SAV9( NLINE, 13) 

=  THTGIR  *  57.29578 

OUTA174 

SAV10 (NLINE, 1 ) 

=  T 

OUTA175 

SAV10(NLINE,2) 

=  RUNOUT  /  12.0 

OUTA176 

SAV10(NLINE,3) 

=  SH  /  12.0 

OUTA177 

SAV10(NLINE,4) 

=  VH  /  12.0 

OUTA178 

SAV10(NLINE,5) 

=  PHIHKR  *  57.29578 

OUTA179 

SAV10(NLINE,6) 

=  ALPHCR  *  57.29578 

OUTA180 

SAV10(NLINE,7) 

=  FH(1  ) 

OUTA181 

SAV10(NLINE,8) 

=  FH(2) 

OUTA182 

SAV10(NLINE,9) 

=  FH(3) 

OUTA183 

SAV1 1 (NLINE, 1 ) 

=  T 

OUTA184 

SAV1 1 (NLINE, 2) 

=  QBDD(I) 

OUTA185 

SAV1 1 (NLINE, 3) 

=  QBDd  ) 

OUTA186 

SAV1 1 (NLINE, 4) 

=  QB(1) 

OUTA187 

SAV1 1 (NLINE, 5) 

=  QBDD(2) 

OUTA188 

SAV1 1 (NLINE, 6) 

=  QBD(2) 

OUTA189 

SAV1 1 (NLINE, 7) 

=  QB(2) 

OUTA190 

SAV1 1 (NLINE, 8) 

=  QBDD(3) 

OUTA191 

SAV1 1 (NLINE, 9) 

=  QBD(3) 

OUTA192 

SAV1 1 ^ NLINE, 10) 

=  QB(3) 

OUTA193 

SAV1 1 (NLINE, 1 1 ) 

=  QBDD(4) 

OUTA194 

SAV1 1 (NLINE, 12) 

=  QBD(4) 

OUTA195 

SAV1 1 (NLINE, 1 3) 

=  QB(4) 

OUTA196 

SAV12(NLINE, 1 ) 

=  T 

OUTA1 97 
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10 


40 

50 

1 


1 

2 


80 

90 

1 


100 

1 

2 

110 

1 

2 


SAV12(NLINE,2)  =  QBDD(5) 

SAV12(NLINE,3)  =  QBD(5) 

SAV12(NLINE,4)  =  QB(5) 

SAV1 2(NLINE, 5)  =  QBDD(6) 

SAV12(NLINE,6)  =  QBD{6) 

SAV12(NLINE,7)  =  QB(6) 

SAV12(NLINE,8)  =  QBDD(7) 

SAV1 2(NLINE.9)  =  QBD(7) 

SAV12(NLINE, 10)  =  QB(7) 

SAV12(NLINE, 1 1)  =  QBDD(8) 

SAV12(NLINE, 12)  =  QBD(8) 

SAV12(NLINE, 13)  =  QB(8) 

IF  (NPRT)  10,  550,  10 
NPAGE  =  NPAGE  +  1 
CALL  PAGEHD 
WRITE  (6,20) 

format  (8X,  IHT,  5X,  4HVBD1 ,  6X,  3HVB1 ,  7X,  2HDD,  8X,1HD, 

5X,  4HVBD2,  6X,  3HVB2 ,  7X,  2HSD,  8X,  1HS,  5X,  4HVBD3 ,  6X, 
3HVB3,  7X,  2HVD,  8X,  1HV) 

WRITE  (6,30' 

format  (6X,  3HSEC,  2X,  7HFT/SEC2,  3X,  6HFT/SEC,  3X,  6HFT/SEC, 
7X,  2HFT,  2X,  7KFT/SEC2 ,  3X,  6HFT/SEC,  3X,  6HFT/SEC,  7X,  2HFT, 
2X,  7HFT/SEC2,  3X,  6HFT/SEC,  3X,  6HFT/SEC,  7X,  2HFT) 

DO  401=1,  NLINE 
WRITE  (6,50)  (SAV1(I,J),  J  =  1,  13) 
format  (F9.4,  F9.3,  F9.3,  F9.3,  F9.3,  F9.4,  F9.4,  F9.4,  F9.4, 
F9.3,  F9.4,  F9.4,  F9.4) 

NPAGE  =  NPAGE  +  1 
CALL  PAGEHD 
WRITE  (6,60) 

format  (8X,  IHT,  2X,  7HOMEGBD1 ,  3X,  6HOMEGB1 ,  5X,  4HPHID, 

6X,  3HPHI,  2X,  7HOMEGBD2,  3X,  6HOMEGB2 ,  4X,  5HTHETD,  5X, 
4riTHET,  2X,  7HOMEGBD3 ,  3X,  6HOMEGB3,  5X,  4HPSTD,  6X,  3HPSI) 
WRITE  (6,70) 

FORMAT  (6X,  3HSEC,  IX,  8HRAD/SEC2 ,  2X,  7HRAD/SEC, 

2X,  7HRAD/SEC,  6X,  3HDEG,  IX,  8HRAD/SEC2 ,  2X,  7HRAD/SEC, 

2X,  7HRAD/SEC,  6X,  3HDEG,  IX,  8HRAD/SEC2 ,  2X,  7HRAD/SEC, 

2X,  7HRAD/SEC,  6X,  3HDEG) 

DO  801=1,  NLINE 

WRITE  (6,90)  (SAV2(I,J),  J  =  1,  13) 

FORMAT  (F9.4,  F9.4,  F9.4,  F9.4,  F9.3,  F9.4,  F9.4,  F9 . 4 ,  rS.3, 
F9.4,  F9.4,  F9.4,  F9.3) 

NPAGE  =  NPAGE  +  1 
CALL  PAGEHD 
WRITE  (6,100) 


OUTA198 
OUTA1 99 
OUTA200 
OUTA2C1 
OUTA202 
OUTA203 
OUTA204 
OUTA205 
OUTA206 
OUTA207 
OUTA208 
OUTA209 
OUTA2 1 0 
OUTA2 1  1 
OUTA21  2 
OUTA2 1 3 
OUTA2 1 4 
OUT A 2 1 5 
OUTA2 1  6 
OUT  A  2 1  7 
OUT A 2 1 8 
OUTA21 9 
OUTA220 
OUTA221 
OUTA222 
OUTA223 
OUTA224 
OUTA225 
OUTA226 
OUTA227 
OUTA228 
OUTA229 
OUTA230 
OUTA2  3 1 
OUTA232 
OUTA233 
OUTA234 
OUTA235 
OUTA236 
OUTA237 
OUTA238 
OUTA239 
OUTA240 
OUTA241 
OUTA242 


FORMAT  (8X,  IHT,  6X,  3HPH1 ,  6X,  3HPA1 ,  5X,  4HPHS1 ,  4X,  5HOMW1D,OUTA243 


LX,  4HOMW1 ,  3X,  6HQG1DD1,  4X,  5HQG1D1 ,  5X,  4HQG1 1 ,  OUTA244 

3X,  6HQG1DD2,  4X,  5HQG1D2,  5X,  4HQG12,  oX,  3HVW1 )  OUTA245 

WRITE  (6,110)  OUTA246 

FORMAT  (6X,  3HSEC,  3X,  6HL5/IN2,  3X,  6HLB/IN2,  3X,  6HLB/IN2,  OUTA247 
IX,  8HRAD/SEC2,  2X,  7HRAD/SEC,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  OUTA248 
7X,  2HIN,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN,  7X,  2HIN)  OUTA249 
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DO  I  =  i,  NLINE 

WRITE  ^6,130^  (SAV3(I,J),  J  =  1,  13) 


OUTA250 

OU7A251 


FORMAT  (F9.4,  F9 . 1 ,  F9.1,  F9 . 1 ,  F9.2,  F9.3,  F9,2,  P9.3,  F9 . 4 ,  OUTA252 
F9,2,  F9.3,  F9.4,  P9 . 3 )  OUTA253 

NPAGE  =  NPAGE  +  1  OUTA254 

CALL  PAGEHD  OUTA255 

WRITE  (6.140)  OUTA256 

FORMAT  (8X,  1HT,  6X,  3HFS1 ,  4X,  5HFGW1 1 ,  4X,  5HFGW12,  OUTA257 

4X,  5HFGW13,  4X,  5HFAX1 1 ,  4X,  5HFAX12,  4X,  5HFAX13,  OUTA258 

5X,  4HS1DD,  6X,  3HS1D,  7X,  2HS1 ,  4X,  5HFFEU1 ,  4X,  5HFFBL1 )  OUTA259 

WRITE  (6,150)  OUTA260 

FORMAT  (6X,  3HSEC,  7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  OUTA261 

7X,  2HLB,  7X,  2HLa,  7X,  2HLB,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  OUTA262 

7X,  2HIN,  7X,  2HLB,  7X,  2HLB)  OUTA263 

DO  160  I  =  1,  NLINE  OUTA264 

WRITE  (6,170)  (SAV4(I,J),  J  =  1,  13)  OUTA265 

FORMAT  (F9.4,  F9 . 0 ,  F9 . C .  F9 . 0 ,  F9.0,  F9 . 0 ,  F9 . 0 ,  F9 . 0 ,  F9.1,  OUTA266 
F9.3,  F9.4,  F9.1,  F9 . '' )  OUTA267 

NPAGE  =  NPAGE  +  •>  OUTA268 

CALL  PAGEHD  OUTA269 

WRITE  (6,180)  OUTA270 

FORMAT  (8X.  1HT,  6X,  3HPH2 ,  6X,  3HPA2 ,  5X,  4HPHS2 ,  4X,  5HOMW2D,OUTA271 
5X,  4HOMW2,  3X,  6HQG2DD1 ,  4X,  5HQG2D1 ,  5X,  4HQG21,  OUTA272 

3X,  6HQG2DD2,  4X,  5HQG2D2,  5X,  4HQG22,  6X,  3HVW2 )  OUTA273 

WRITE  (6,190)  OUTA274 

FORMAT  (6X,  3HSEC,  3X,  6HLB/IN2,  3X,  6HLB/IN2,  3X,  6HLB/IN2,  OUTA275 
IX,  8HRAD/SEC2,  2X,  7HRAD/SEC,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  OUTA276 
7X,  2HIN,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN,  7X,  2HIN)  OUTA277 
DO  200  I  =  1 ,  NLINE  OUTA278 

WRITE  (6,210)  (SAV5(I,J),  J  =  1,  13)  OUTA279 

FORMAT  (F9.4,  F9 . 1 ,  F9.1,  F9.1,  F9.2,  F9.3,  F9.2,  F9 . 3 ,  F9.4,  OUTA280 
F9.2,  F9.3,  F9.4,  F9 . 3 )  OUTA281 

NPAGE  =  NPAGE  +  1  OUTA282 

CALL  PAGEHD  OUTA283 

WRITE  (6,220)  OUTA284 

FORMAT  (8X,  1HT,  6X,  3HFS2,  4X,  5HFGW21 ,  4X,  5HFGW22,  OUTA285 

4X,  5HFGW23,  4X,  5HFAX21 ,  4X,  5HFAX22,  4X,  5HFAX23,  OUTA286 

5X,  4HS2DD,  6X,  3HS2D,  7X,  2HS2 ,  4X,  5HFFBU2 ,  4X,  5HFFBL2 )  OUTA287 

WRITE  (6,230)  OUTA288 

FORMAT  (6X,  3HSEC,  7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  OUTA289 

7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  OUTA290 

7X,  2HIN,  7X,  2HLB,  7X,  2HLB)  OUTA291 

DO  240  1=1,  NLINE  OUTA292 

WRITE  (6,250)  (SAV6(I,J),  J  =  1,  13)  OUTA293 

FORMAT  (F9.4,  F9 . 0 ,  F9.0,  F9.0,  F9.0,  F9.0,  F9.0,  F9.0,  F9.1,  OUTA294 
F9.3,  F9.4,  F9.1,  F9 . 1 )  OUTA295 

NPAGE  =  NPAGE  +  1  OUTA296 

CALL  PAGEHD  OUTA297 

WRITE  (6,260)  OUTA298 

FORMAT  (8X,  1HT,  6X,  3HPH3,  6X,  3HPA3 ,  5X,  4HPHS3,  4X,  5HOMW3D,OUTA299 
5X,  4HOMW3,  3X,  6HQG31DD,  4X,  5HQG31D,  5X,  4HQG31,  OUTA300 

3X,  6HQG32DD,  4X,  5HQG32D,  5X,  4HQG32,  6X,  3HVW3 )  OUTA301 
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WRITE  (6,270)  OUTA302 

FORMAT  (6X,  3HSEC,  3X,  6HLB/IN2,  3X,  6HLB/IN2,  3X,  6HLB/IN2,  OUTA303 
IX,  8HRAD/SEC2,  2X,  7HRAD/SEC, 2X,  7HIN/SEC2,  3X,  6KIN/SEC,  OUTA304 

7X,  2HIN,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN,  7X,  2HIN)  OUTA305 

DO  280  I  =  1 ,  NLINE  OUTA306 

WRITE  (6,290)  (SAV7(I,J),  J  =  1,  13)  OUTA307 

FORMAT  (F9.4,  F9 . 1 ,  F9.1,  F9.1,  F9.2,  F9 . 3 ,  F9 . 2 ,  F9 . 3  ,  F9.4,  OUTA308 
F9.2,  rS.3,  F9.4,  F9 . 3 )  OUTA309 

NPAGE  =  NPAGE  +  1  OUTA3 1 0 

CALL  PAGEHD  OUTA3 1 1 

WRITE  (6,300)  OUTA312 

FORMAT  (8X,  IHT,  6X,  3HFS3,  4X,  5HFGW31 ,  4X,  5HFGW32,  OUTA313 

4X,  5HFGW33,  4X,  5KFAX31,  4X,  5HFAX32,  4X,  5HFAX33,  OUTA314 

5X,  4HS3DD,  6X,  3HS3D,  7X,  2HS3,  4X,  5HFFBU3 ,  4X,  5HFFBL3 )  OUTA3 1 5 

WRITE  (6,310)  OUTA316 

FORMAT  (6X,  3HSEC,  7X,  2HLB,  7X,  2HL3,  7X,  2HLB,  7X,  2HLB,  OUTA3 1 7 

7X,  2HLB,  7X,  2HLB,  7X,  2HLB,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  OUTA3 1 8 

7X,  2HIN,  7X,  2HLB,  7X,  2HLB)  OUTA319 

DO  320  I  =  1 ,  NLINE  OUTA320 

WRITE  (6,330)  (SAV8(I,J),  J  =  1,  13)  OUTA321 

FORMAT  (F9.4,  F9.0,  F9 . 0 ,  F9 . 0 ,  F9.0,  F9.0,  F9.0,  F9 . 0 ,  F9 . 1 ,  OUTA322 
F9.3,  F9.4,  F9.1,  F9.1)  OUTA323 

NPAGE  =  NPAGE  +  1  OUTA324 

CALL  PAGEHD  OUTA325 

WRITE  (6,340)  OUTA326 

FORMAT  (8X,  IHT,  4X,  SHaLPHA,  5X,  4HBETA,  5X,  4HVAIR,  OUTA327 

6X,  3HFP1,  6X,  3HFP2,  6X,  3HFP3,  6X,  3HMP1 ,  6X,  3HMP2,  OUTA328 

6X,  3HMP3,  3X,  6HOMG1DD,  4X,  5HOMG1D,  4X,  5HTHTG1 )  OUTA329 

WRITE  (6,350)  OUTA330 

FORMAT  (6X,  3HSEC,  6X,  3HDEG,  6X,  3HDEG,  3X,  6HFT/SEC,  OUTA331 

7X,  2HLB,  7X,  2riLB,  7X,  2HLB,  4X,  SHIN  LB,  4X,  SHIN  LB,  OUTA332 

4X,  SHIN  LB,  IX.  8HRAD/SEC2,  2X,  7HRAD/SEC,  6X,  3HDEG)  OUTA333 

DO  3S0  I  =  1 ,  NLINE  OUTA334 

WRITS  (6,370)  (SAV9(I,J),  J  =  1,  13)  OUTA335 

FORMAT  (F9.4,  F9.3,  F9.3,  F9.3,  F9.0,  F9 . 0 ,  F9.0,  F9.0,  F9.0,  OUTA336 
F9.0,  F9.3,  FS.3,  F9.3)  OUTA337 

IF  (NHOOK)  380,  430,  380  OUTA338 

NPAGE  -  NPAGE  +  1  OUTA339 

CALL  PAGEHD  OUTA340 

WRITE  (6,390)  OUTA341 

FORMAT  (8X,  IHT,  3X,  6HRUNOUT,  7X,  2HSH,  7X,  2HVH,  4X,  5HPHIHK,OUTA342 
4X,  5HALPHC,  6X,  3HFH1 ,  6X,  3HFH2,  6X,  3HFH3)  OUTA343 

WRITE  (6,400)  OUTA344 

FORMAT  (6X,  3HSEC,  7X,  2HFT,  7X,  2HFT,  7X,  2HFT,  6X,  3HDEG,  OUTA345 
6X,  3HDEG,  7X,  2HLB,  7X,  2HLB,  7X,  2HLB)  OUTA346 

DO  410  1=1,  NLINE  OUTA347 

WRITE  (6  120)  (SAV10(I,J),  J=  1,  9)  OUTA348 

FORMAT  (F9.4,  F9 , 3 ,  F9.3,  F9.3,  F9.3,  F9 . 3 ,  F9.0,  OUTA349 

F9.0,  F9.0)  OUTA350 

IF  (NBE)  440.  540,  4^0  OUTA351 

NPAGE  =  NPAGL  +  1  OUTA352 

CALL  PAGEHD  CUTA353 
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450 


460 


510 


520 

530 

540 

550 


WRITE  '6,450}  OUTA354 

FORMAT  (8X,  1HT,  4X,  5HQBDD1 ,  5X,  4HQBD1 ,  6X,  3HQP' ,  OUTA355 

4X,  5HQBDD2,  5X,  4HQBD2 ,  6X,  3HQB2 ,  4X,  5HQBDD3 ,  5X,  4HQBD3 ,  OUTA356 

6X,  3HQB3,  4X.  5HQBDD4 ,  5X,  4HQBD4,  6X,  3HQB4 )  OUTA357 

WRITE  (6,460)  OUTA358 

FORMAT  {6X,  3HSEC,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN,  OUTA359 

2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HrN,  2X,  7HIN/SEC2,  OUTA360 

3X,  6HIN/SEC,  7X,  2HIN,  2X,  7KIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN)  OUTA361 


DO  470  1=1,  NLINE 

OUTA362 

470 

WRITE  (6,480)  (SAV11(I,J),  J  =  1,  '.2) 

OUTA363 

480 

FORMAT 

(F9.4,  F9.2,  F9.3,  F9.4,  F9.2,  F9.3,  J9 . 4 ,  F9.2.  F9 , 3 , 

OUTA364 

1 

F9.4,  : 

F9.2,  F9.3,  F9.4) 

OUTA365 

IF(  NBE  -  5)  540,  490,  490 

OUTA366 

490 

NPAGE  =  NPAGE  +  1 

OUTA367 

CALL  PAGEHD 

OUTA368 

WRITE  (6,5C0) 

OUTA369 

500 

FORMAT 

(8X,  1HT,  4X,  5HQBDD5,  5X,  4HQBD5 ,  6X,  3HQB5, 

OUTA370 

1  4X,  5HQBDD6,  5X,  4HQBD6,  6X,  3HQB6,  4X,  5HQBDD7 ,  5X,  4HQBD7 ,  OUTA371 

2  6X,  3HQB7,  4X,  5HQBDD8 ,  5X,  4HQBD8 ,  6X,  3HQB8 )  OUTA372 

WRITE  (6,510)  OUTA373 

FORMAT  (6X,  3HSEC,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN,  OUTA374 

1  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X;  2HIN,  2X,  7HIN/SEC2,  OUTA375 

2  3X,  6HIN/SEC,  7X,  2HIN,  2X,  7HIN/SEC2,  3X,  6HIN/SEC,  7X,  2HIN)  OUTA376 

DO  520  I  =  1,  NLINE  OUTA377 

WRITE  (6,530)  (SAV12(I,J),  J  =  1,  13)  OUTA378 

FORMAT  (F9.4,  F9.2,  F9.3,  F9.4,  F9.2,  F9.3,  F9.4,  F9.2,  F9.3,  OUTA379 
1  F9.4,  F9,2,  F9.3,  F9.4)  OUTA380 

NPRT  =  0  OUTA381 

RETURN  OUTA382 

END  0UTA383 
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70 

3  0 

0  0 

0  79  0  110 

0  1  4  64 

25  FIRST 

8 

2  2 

2  1 

2  2  0  0 

0  1 

SECOND 

SAMPLE  RUN 

LANDING  IMPACT  SOLUTICN 

THIRD 

INCLUDES 

EIGEIT  ELASTIC  BCBY  NODES  FOR  AIRFRAME 

FOURTH 

1  191  1 

PCOUNT 

0.001 

0.800 

373.2 

0.0  211.0 

138888.0 

PI  P6 

0.00008 

175.4 

0.0 

P7  P12 

161.6 

183.44 

0.0 

111.69  7.5 

-2.0 

P13  P18 

0.0 

0.15 

50000.0 

200.0  160000.0 

191.3 

P19  P24 

16.278 

19.596 

0.586 

0,95  16.73 

3.824 

P25  P30 

0.041187 

0.11341 

0.80 

11.15  -0.131613 

1  -0.75464 

P31  P36 

131.079 

14.184 

0.0 

0.05  0.05 

3.65 

P37  P42 

0.4798 

0.01 

0.23259 

0.02 

P43  P48 

415.0 

-37.90  181.50 

413.44 

P49  P54 

-73.23 

123.20 

10.0 

0.0  0.0 

P55  P60 

200.0 

400000.0 

233.872  24.864 

21.606 

P61  P66 

0.442 

0.95 

10.478 

3.258  0.0049 

0.0049 

P67  P72 

0.80 

14.75 

0.0 

0.95886  -1.80814 

-193.545 

P73  P78 

-77.047 

-41.138 

30.804 

0.0  0.05 

0.05 

P79  P84 

4.75 

0.3651 

0.01 

0.36038  0.02 

P85  P90 

415.0 

37.90 

181.50 

413.44  73.23 

123.20 

P91  P96 

10.0 

0,0 

0.0 

200.0 

P97  P102 

400000.0 

233.872 

24.864 

21.606  0.442 
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RUN  NO.  TO  PAGE  NO.  14 

T  PH2  PA2  PHS2  OMW2D  OMW2  QG2DD1  QG2D1  CG21  QG2DD2  QG2D2  QG22  VW2 

SEC  LB/IN2  LB/IN2  LB/IN2  RAD/SEC2  RAD/SEC  IN/SEC2  IN/SEC  IN  IN/SEC2  IN/SEC  IN  IN 
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